Как вычислить минимум из нескольких чисел? И максимум тоже? - Pascal ABC

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

Как вычислить минимум из нескольких чисел? И максимум тоже?

Решение задачи: «Как вычислить минимум из нескольких чисел? И максимум тоже?»

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

var
  i, a, n, max, min : integer;
begin
  max := -maxint;
  min := maxint;
  write('сколько чисел вы хотите ввести? ');
  readln(n);
  for i := 1 to n do
  begin
    write('введите 1 число: ');
    readln(a);
    if a > max then max := a;
    if a < min then min := a
  end;
  writeln('максимум: ', max, ', минимум: ', min)
end.

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

Переменная max инициализируется значением -maxint, где maxint - это максимальное значение типа integer. Это позволит нам хранить в переменной max наибольшее число, которое может быть представлено в данном типе данных.
Переменная min инициализируется значением maxint. Это позволит нам хранить в переменной min наименьшее число, которое может быть представлено в данном типе данных.
Выводится сообщение сколько чисел вы хотите ввести? для запроса количества чисел, которые пользователь хочет ввести.
Считывается число n, представляющее количество чисел, которые пользователь хочет ввести.
Запускается цикл for, который будет выполняться n раз.
На каждой итерации цикла запрашивается число от пользователя и считывается в переменную a.
Внутри цикла проверяется, является ли число a больше значения переменной max. Если да, то значение max обновляется, чтобы хранить это число.
Также проверяется, является ли число a меньше значения переменной min. Если да, то значение min обновляется, чтобы хранить это число.
По завершении цикла выводится сообщение максимум: , минимум: с значениями переменных max и min.