Составить программу поиска числа с самой большой дробной частью из данного набора чисел

function f(const x:real): real;
begin
  f:=frac(x);
end;
 
const
  max=100;
var
  nabor:array [1..max] of real;
  k,i:integer;
  chislo:real;
begin
  cls;
  repeat
    write('Введите кол-во чисел в наборе: '); readln(k);
  until k in[1..100];
  chislo:=0;
  writeln('Набор чисел');
  for i:=1 to k do begin
    nabor[i]:=random*100;
    writeln(i:2,' - ',nabor[i]);
    if f(nabor[i])>f(chislo) then chislo:=nabor[i];
  end;
  writeln('Число с самой большой дробной частью: ',chislo);
end.

function f(const x:real): real;
begin
  f:=x-Int(x);
end;

function f(const x:real): real;
var s:string;
begin
  s:=FloatToStr(x);
  Delete(s,1,Pos('.',s));
  f:=StrToFloat('0.'+s);
end;

writeln(f(51.4444));

0.4444

function f(const x:real): real;
var
  s:string;
begin
  if x<1 then f:=x
  else begin
    Str(x,s);
    Delete(s,1,Pos('.',s));
    f:=StrToFloat('0.'+s);
  end;
end;

function f(const x:real): real;
var
  s:string;
begin
  if abs(x)<1 then f:=abs(x)
  else begin
    Str(x,s);
    Delete(s,1,Pos('.',s));
    f:=StrToFloat('0.'+s);
  end;
end;