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

   max, i, a: integer;

   max := -32768;

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

   for i := 1 to 10 do

begin

readln(a);

if a > max then max := a;

end;

writeln(max);

end.