Помогите плз.Pascal ABC Дано 5 натуральных чисел, не превышающих 2000 000 000. Вычислите...

Помогите плз.
Pascal ABC

Дано 5 натуральных чисел, не превышающих 2000 000 000. Вычислите значение того из них, которое ближе к их среднему арифметическому. В случае наличия нескольких вариантов ответов вывести наименьший вариант.

Вводные данные: A B C D E
Выходные данные: X

Пример:
входной файл
6 2 8 1 10
выходной файл
6

пояснение к примеру:
Среднее арифметическое равно (1+2+6+8+10)/5=5,4. Минимальное значение модуля разности даёт 6(0,6).

Const
n=5; // количество чисед
var
i,k:integer;
s:longint;
m,d,dc:real;
a:array[1..n] of longint;
fin,fout:Text; // файловые переменные для ввода/вывода

begin
Assign(fin,'input.txt'); Reset(fin); // файл готов к чтению
s:=0;
for i:=1 to n do
    if not Eof(fin) then begin
      Read(fin,a[i]);
      s:=s+a[i]
      end
    else begin
      Writeln('Во входном файле недостаточно данных');
      Close(fin);
      Exit
      end;
Close(fin);
m:=s/n;
d:=Abs(a[1]-m); k:=1;
for i:=2 to n do begin
    dc:=Abs(a[i]-m);
    if dc      k:=i; d:=dc
      end
    end;
Assign(fout,'output.txt'); Rewrite(fout); // файл готов к записи
Writeln(fout,a[k]);
Close(fout)
end.

Скачать вложение Текст (TXT)