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

var  a: array [1..80] of real;  n: byte := 1;begin  for i: integer := 1 to 80 do  begin    a[i] := trunc(random() * 100) / 100;    write(a[i], ' ');  end;  for i: integer := 1 to 80 do    if (abs(a[i] - round(a[i])) < abs(a[n] - round(a[n]))) then      n := i;  writeln();  writeln(n);end.