Cómo convertir decimales pascales a fracciones

función?nTos(x:real):string;

comenzar

str(x,nTos);

fin;

procedimiento?floatTofraction(x:real);

var

t:integer;

r:string;

y:real;

comenzar

t:=1;

repetir

y:=x*t; p>

r:=nTos(y)+'/'+nTos(t);

inc(t);

hasta?(trunc(y) =y );

end;

El resultado se almacena en la variable r, que es de tipo cadena.