Найти максимум на Паскале из N чисел. Числа вводит пользователь в интерактивном режиме.

Суть нахождения максимума на Паскале заключается в том, чтобы при вводе каждого нового числа сравнивать это введенное число с максимальным на данный момент. Если же это первое введенное число, то следует считать, что это первое число является на максимумом на текущий момент.

program ex35;
uses
crt;
var
i, n, max, a: integer;
begin
clrscr;
write('Введите количество элементов последовательности n=');
readln(n);
for i:=1 to n do
begin
write('введите элемент последовательности: ');
readln(a);
if i=1 then max:=a else if a>max then max:=a;
end;
write('max=',max);
readln;
end.