Паскаль.Задан целочисленный массив из 5 чисел. Числа вводим с клавиатуры. Отыскать

Var a:array [1..5] of integer;
i,max,c:integer;
begin
for i:=1 to 5 do
begin
write ('Введите ',i,' число: ');
readln (a[i]);
end;
max:=a[1];
for i:=1 to 5 do
begin
if maxlt;a[i] then
begin
max:=a[i];
c:=i;
end;
end;
WRITELN;
write ('Введённый массив: ');
for i:=1 to 5 do
begin
write (a[i],' ');
end;
writeln;
writeln ('Наибольший элемент: ',max);
if c=5 then write ('Наибольший элемент стоит на последнем месте!') else write ('Максимальный элемент не стоит на заключительном месте!')
end.