Вычислить: номер элемента массива, наименее отличающегося от среднего арифметического всех его элементов.Написать программу в паскале.Помогите,пожалуйста.

const  n = 5;   var   a: array[1..n] of integer;
  i, k: integer;
  s: real;
 
begin
  s := 0;
  for i := 1 to n do
  begin
    readln(a[i]);
    s := s + a[i];
  end;
  s := s / n;
  writeln('Среднее значение = ', s:0:3);
  k := 1;
  for i := 2 to n do
    if abs(a[k] - s) > abs(a[i] - s) then k := i;
 
  writeln('Индекс элемента: ', k, ' Значение = ', a[k]);
end.