Последовательно вводятся n целых чисел. найдите максимальное из них

Program ololo;
var max,n,i,a:integer;
begin
max:=0;
readln(n);
for i:= 1 to n do
readln(a);
if (a>max) then max:=a;
end;
writeln(max);
end.
Вроде так)

Var
  N, X, Max, i: Integer;
Begin
  Max := 0;
  WriteLn('Введите количество чисел N: ');
  Read(n);
  WriteLn('Введите N чисел: ');
  For i := 1 To N Do
  Begin
    Read(X);
    If X > Max then Max := x;
  End;
  WriteLn('Максимальное: ', Max);
End.