Задача на массив

[mimit]

В массиве хранится информация о годе рождения каждого из 30 человек. Определить порядковый номер самого старшего по возрасту человека. Если таких людей несколько, то должен быть найден номер последнего из них.

При определении возраста учитывать только год рождения (месяц и день не учитывать).

[Mad_Cat]

min:=1;
for i:= 2 to n do
if mas[i]<=mas[min] then min:=i;
writeln(min);