Дано 20 вещественных чисел. Найти порядковый номер того из них, которое ближе всего к какому-нибудь целому числу — Pascal(Паскаль)

Program s1;
   uses crt;
   const
      N=20;
   type
      T=array[1..N] of real;
   var
      a:T;
      min, i: byte;
begin
   clrscr;
   writeln('массив :');
   min:=1;
   For i:=1 to N do
      begin
         a[i]:=100*random;
         write(a[i]:8:2);
         If abs(a[i]-round(a[i])) < abs(a[min]-round(a[min])) then 
            min:=i;
      end;
   writeln;
   writeln('Ближе всего к целому:',a[min]:6:2);
end