Написать программу вывода max n-числа, где - то от 1 до 100 через массив, и последующее сравнивать

Program primer1;

var

a: array[1 ... 100] of integer;

n, i, max, min: integer;

begin

Randomize;

Write ('Введите число элементов от 1 до 100: ') ;

Readln (n) ;

max : = - 32768;

min : = 32767;

Writeln ('Исходный ряд чисел') ;

for i : = 1 to n do

begin

a[i] : = Random (101) - 50;

Write (a[i], ' ') ;

if max < a[i] then max : = a[i]

else if min > a[i] then min : = a[i];

end;

Writeln (#13#10, 'Максимум: ', max, ', минимум: ', min) ;

end.

Тестовое решение:

Введите число элементов от 1 до 100: 24

Исходный ряд чисел

40 - 14 - 12 13 44 - 48 - 19 11 - 50 - 2 - 49 - 6 45 49 - 44 4 - 7 - 50 - 31 18 37 44 30 - 2

Максимум: 49, минимум: - 50