Найти и показать число, которое будет иметь наименьшее расстояние от любого целого.

Const n=10;
Var a:array[1..n] of real;
    i: integer;
    l: real;
Begin
    
    for  i := 1 to n do
    begin
     Write('Элемент А [', i, '] = ');
     readln(a[i]);
    end;
  
 end.

const
  n = 4;
 
var
  a: array[1..n] of real;
 
begin
  
  for var i: integer := 1 to n do
  begin
    Write('Элемент А [', i, '] = ');
    readln(a[i]);
  end;
  
  
  var min: integer := n + 1;
  //var min_d: integer := n + 1;
  var k: integer := 0;
  
  for var i: integer := 1 to n - 1 do
  begin
    for var j: integer := 2 to n  do
    begin
      if ((frac(a[i]) = 0) or (frac(a[j]) = 0)) and (k < min)
      then begin
        k := abs(i - j);
        min := k;
      end;        
    end;
  end; 
  
  writeln('Минимальная разница: ', min);
  
end.

const
  n = 10;
 
var
  a: array[1..n] of real := (1.113, 5.995, -3.077, 2.847, 7.2, 6.3, 4.22, 3.18, -5.076, 6.4); // лениво было делать ввод вручную
  ix: integer;
  min_diff: real := 1;
 
begin
  for var i := 1 to n do
  begin
    var diff := min(abs(a[i] - Ceil(a[i])), abs(a[i] - Floor(a[i])));
    if min_diff > diff then
    begin
      min_diff := diff; ix := i;
    end;
  end;
  writeln('Число, минимально отличающееся от целого = ', a[ix]:8:4, '; разность = ', min_diff:8:4);
  
end.

begin
  var a := Arr(1.113, 5.995, -3.077, 2.847, 7.2, 6.3, 4.22, 3.18, -5.076, 6.4);
  var R := a.Select(v -> (v, min(abs(v - Ceil(v)), abs(v - Floor(v))))).OrderBy(v -> v[1]).First;
  writeln('Число, минимально отличающееся от целого = ', R[0]:8:4, '; разность = ', R[1]:8:4);
end.