одномерный массив(pascal)

[buslik]

Изначально задание звучало так: Создать функцию, которая анализирует одномерный числовой массив и возвращает порядковый номер элемента наиболее удалённого к среднему арифметическому.

как переделать на возвращение элемента наиболее близкого к среднему значению?

PHP код:

program z1;
Uses crt;
Type massiv=array[1..10]of integer;
Function nomer(m:massiv):integer;
var i,t:integer;
max,s:real;
begin
s:=0;
t:=0;
max:=0;
for i:=1 to 10 do
s:=s+m[i];
s:=s/10;
for i:=1 to 10 do
begin
if abs(s-m[i])>max then
begin
max:=abs(s-m[i]);
t:=i;
end;
end;
nomer:=t;
end;
var m:massiv;
i:integer;
begin
Clrscr;
for i:=1 to 10 do
begin
Write ('‚введите ',i,' элемент массива: ');
readln(m[i]);
end;
writeln('результат: ',nomer(m));
readln;
end. 


[danekne]

if abs(s-m[i])<min then 
begin 
min:=abs(s-m[i]); 
t:=i; 
end;

При равноудаленных будет последний выводить

[buslik]

Спасибо огромное!!!