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

var a:array[1..30] of integer;i,k,min:integer;beginwriteln('Введите годы рождения ');for i:=1 to 30 dobeginreadln(a[i]);end;min:=a[1];for i:=1 to 30 dobeginif a[i]<min then beginmin:=a[i];k:=i;end;end;writeln('Порядковый номер самого старшего по возрасту человека равняется ',k);end.