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

По условию числа запросто могут быть и меньше нуля

У типа integer не фиксированный диапазон. в Турбо Паскале - да, [-32768..32767], в ABC уже [-2147483648..2147483647]

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.

Var   A,Max,i:integer;BeginWrite('Введите 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.