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

uses crt;

var
  a: array [1 .. 10] of real;
  i, m: integer;
  sr, s, k: real;

begin
  clrscr;
  randomize;
  for i := 1 to 10 do
  begin
    a[i] := random(10) + 1;
    write(' ', a[i]:3:3);
    s := s + a[i];
  end;
  writeln;
  sr := s / 10;
  writeln('srednee arifmeticheskoe= ', sr:3:2);
  k := 20;
  for i := 1 to 10 do
  begin
    if k > abs(sr - a[i]) then
      k := abs(sr - a[i])
  end;
  writeln;
  for i := 1 to 10 do
  begin
    if abs(sr - a[i]) = k then
    begin
      write(' ', a[i]:3:3);
      writeln('ego nomer ', i);
    end;
  end;
  readln;

end.