function rts (chislo : real) : string;
var
l : integer;
r : real;
st : string;
begin
if frac(chislo)=0 then
begin
if chislo<0 then
st:=' '+trunc(chislo)
else
st:=''+trunc(chislo);
end;
if frac(chislo)<>0 then
begin
l:=trunc(chislo);
r:=frac(chislo)*pow(10,length(''+frac(chislo))-1);
if l<0 then st:=' '+l+'.'+r
else st:=''+l+'.'+r;
end;
rts:=st;
end;
компилится, но на вызове этой функции останавливается. В чём проблема?
