Паскаль. Задан целочисленный массив из 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 maxbegin
max:=a[i];
c:=i;
end;
end;
WRITELN;
write (Введённый массив: );
for i:=1 to 5 do
begin
write (a[i], );
end;
writeln;
writeln (Максимальный элемент: ,max);
ifc=5 then write (Максимальный элемент стоит на последнем месте!) elsewrite (Максимальный элемент не стоит на последнем месте!)
end.