Вводится массив, состоящий из целых чисел. Найти наибольшее среди них - Free Pascal

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

Вводится массив, состоящий из целых чисел. Найти наибольшее среди них. Входные данные Сначала задано число N — количество элементов в массиве (1<=N<=35). Далее через пробел записаны N чисел — элементы массива. Массив состоит из целых чисел. Выходные данные Необходимо вывести значение наибольшего элемента в массиве. Примеры входные данные 3 1 2 3 выходные данные 3

Решение задачи: «Вводится массив, состоящий из целых чисел. Найти наибольшее среди них»

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

var
a: array [1..100] of integer;
i,  n ,  max : integer;
begin
writeln('rozmer');
readln(n);
randomize ;
if (( n>=1) and (n<=35)) then 
for i:=1 to n do begin
a[i]:=random(90)-45 ;
write(a[i]:3);
end;
writeln;
max:=a[1] ;
for i:=2 to 100 do begin 
if a[i]>max then max:=a[i] ;
end;
writeln(max);
end.

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

Объявлены переменные: a) a: array [1..100] of integer; - массив для хранения чисел b) i, n, max: integer; - переменные для цикла, для хранения количества чисел и максимального числа соответственно
Выводится сообщение rozmer и считывается значение переменной n
При помощи функции randomize инициируется генератор случайных чисел
Если считанное значение n удовлетворяет условию (1 <= n <= 35), то выполняется цикл, который заполняет массив a случайными числами в указанном диапазоне
После завершения цикла выводится сообщение и считывается значение переменной max
Запускается цикл, который проходит по всем элементам массива и сравнивает каждое число с текущим максимальным числом. Если число больше максимального, то оно становится новым максимальным числом
По завершении цикла выводится значение переменной max