Определить порядковый номер самого старшего по возрасту человека - Pascal

Формулировка задачи:

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

Решение задачи: «Определить порядковый номер самого старшего по возрасту человека»

Листинг программы

Old:=1;
For i:=2 to 30 do If m[i]<m[Old] then Old:=i;
Writeln(Old);

Объяснение кода листинга программы

Переменная Old инициализируется значением 1.
Происходит цикл от 2 до 30.
Внутри цикла происходит проверка: если значение элемента массива m с индексом i меньше значения элемента массива m с индексом Old, то значение переменной Old обновляется на значение i.
После завершения цикла, выводится значение переменной Old, которое является порядковым номером самого старшего по возрасту человека.