Решать в Pascal
Найти наибольший элемент заданной целочисленной числовой последовательности.
Входные данные:Во входном потоке в первой строке задано натуральное число N (N <= 1000) - количество элементов числовой последовательности. Во второй строке через пробел перечислены значения элементов последовательности Ai (-32000 <= Ai <= 32000).
Выходные данные:В выходной поток вывести единственное целое число.
Пример входного файла (input.txt):8
100 10 -10 -100 300 32000 20000 -30000
Пример выходного файла (output.txt):32000
Мое решение(ошибку скажите):
var a,b,max,i:longint;
begin
read(a);
for i:=1 to a do begin
read(b);
if b>=max then max:=b;
end;
write(max);
end.