Найти максимальный элемент в последовательности чисел - Pascal ABC

Формулировка задачи:

program nam1;
var i,n,j:integer;
max, a:real;
begin
readln(n);   {вводим количество элементов}
readln(max);  {вводим первый элемент, предполагая что он максимальный}
for i:=2 to n do  {начинаем перебирать их начиная со второго, т.к. первый уже введён} 
readln(a);   {вводим n элементов}
if a>max then max:=a;
writeln('Максимальное число=',max);
end.

В чём тут ошибка? Не работает правильно.

Решение задачи: «Найти максимальный элемент в последовательности чисел»

Листинг программы

program nam1;
var
  i,n,j:integer;
  max, a:real;
begin
  readln(n);   {вводим количество элементов}
  readln(max);  {вводим первый элемент, предполагая что он максимальный}
  for i:=2 to n do  {начинаем перебирать их начиная со второго, т.к. первый уже введён}
    begin
      readln(a);   {вводим n элементов}
      if a>max then
        max:=a;
    end;
  writeln('Максимальное число=',max);
end.

Объяснение кода листинга программы

Ввод количества элементов (n) и первого элемента (max).
Перебор элементов начиная со второго.
Сравнение каждого элемента (a) с текущим максимальным (max).
Если элемент больше текущего максимального, то обновление значения максимального элемента.
Вывод максимального числа.