Найти максимальное значение из 10 введённых чисел на паскале

Var
   A,Max,i:integer;
Begin
Write('Введите 10 чисел: ');
Read(A);
Max:=A;
For i:= 1 to 9 do
    Begin
    Read(A);
    if A>Max then Max:=A;
    End;
WriteLn('Max = ',Max)
End.

Var

   max, i, a: integer;

begin

   max := -32768;

   writeln('Введите последовательность чисел: ');

   for i := 1 to 10 do

   begin

     readln(a);

     if a > max then max := a;

   end;

writeln(max);

end.