Найти число, которое ближе всего к целому - Pascal ABC

const n=16;
var a:array[1..n] of real;
    i:integer;
    mn,imn:real;
begin
randomize;
writeln('Массив');
for i:=1 to n do
 begin
  a[i]:=-5+10*random;
  write(a[i]:8:4);
  if i=n div 2 then writeln;
 end;
writeln;
mn:=0;
for i:=1 to n do
if abs(abs(frac(a[i]))-0.5)>mn then
 begin
  mn:=abs(abs(frac(a[i]))-0.5);
  imn:=a[i];
 end;
write('Наиболее блзкое к целому ',imn:0:4)
end.