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

uses crt;
var a : array[1..30] of integer;
i : integer;
m1,m2 : integer;
begin
clrscr;
randomize;
for i := 1 to 30 do
a[i] := random(100);
for i := 2 to 30 do
begin
if (a[i-1]<a[i]) then
m1 := a[i];
if a[i-1]>m1 then
m1:= a[i-1];
end;
for i := 2 to 30 do
begin
if (a[i-1] < a[i])  and (a[i]< m1) then
m2 := a[i];
if(m2<a[i-1]) and (a[i-1]<m1) then
m2 := a[i-1];
end;
writeln(m1);
writeln(m2);
readln;
end.