Составить программу, осуществляющую поиск самого старшего учащегося 10-го класса — Pascal(Паскаль)

Program mas;
Uses crt;
Const n=5;
Var a,b: array[1..n] of byte; i,c,max: byte;
Begin
Clrscr;
For i:=1 to n do
begin
Writeln('Введите возраст ',i,'-ого ученика');
Write('Кол-во лет: ');
Readln(a[i]);
Write('Кол-во месяцев: ');
Readln(b[i]);
Writeln(^j);
end;
max:=a[1];
For i:=2 to n do
If a[i]>max then
begin
max:=a[i];
c:=i;
end;
For i:=1 to n do
if a[i]=max then
if b[i]>b[c] then
c:=i;
Write('Самый старший ученик: возраст ',a[c],' лет и ',b[c],' ');
If b[c]=1 then Write('месяц')
else if b[i] in [2..4] then Write('месяца')
else if b[i] in [0,5..12] then Write('месяцев');
For i:=1 to n do
if b[i]>12 then
begin
Clrscr;
Write('Ошибочный ввод');
end;
End.