Поочередно вводятся n целых чисел, найдите наибольшее из их Помогите пожалуйста

Program ert;
var
A: array [1..100] of integer;
i, n, max: integer;
begin
Writeln(Введите число частей массива);
readln(n);
for i:=1 to n do begin
writeln(Введите ,i,-й элемент);
readln(A[i]);
end;
max:=A[1];
for i:=2 to n do
if A[i]gt;max then max:=A[i];
writeln(Наибольший элемент: ,max);
readln;
end.