Дано целое число N и набор из N чисел. Найти минимальный и максимальный из элементов данного набора и вывести их в указанном порядке - Pascal ABC

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

Пожалуйста, помогите решить задачу в PascalABC! Дано целое число N и набор из N чисел. Найти минимальный и максимальный из элементов данного набора и вывести их в указанном порядке

Решение задачи: «Дано целое число N и набор из N чисел. Найти минимальный и максимальный из элементов данного набора и вывести их в указанном порядке»

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

uses crt;
var n,i,a,mn,mx:integer;
begin
clrscr;
repeat
write('Введите количество чисел, не менее 2 n=');
readln(n);
until n>1;
writeln('Введите ',n,' целых чисел');
readln(mn);
mx:=mn;
for i:=2 to n do
 begin
  readln(a);
  if a<mn then mn:=a;
  if a>mx then mx:=a;
 end;
write('Min=',mn,'  Max=',mx);
readln
end.

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

В первой строке используется библиотека crt, которая входит в стандартный набор библиотек языка Pascal ABC.
Переменные n, i, a, mn и mx объявлены как целочисленные.
Строка repeat-until используется для получения от пользователя количества чисел, которое он хочет ввести (переменная n). Это число должно быть не менее 2.
Строка write('Введите количество чисел, не менее 2 n=') используется для вывода сообщения с запросом ввода количества чисел.
Строка readln(n) используется для чтения введенного пользователем значения переменной n.
Строка until используется для завершения цикла повторений, пока значение переменной n больше или равно 1.
Строка write('Введите ',n,' целых чисел') используется для вывода сообщения с запросом ввода набора из n целых чисел.
Строка readln(mn) используется для чтения введенного пользователем значения переменной mn.
Строка mx:=mn используется для присвоения переменной mx значения переменной mn.
Строка for i:=2 to n do используется для цикла, который начинается со второго числа в наборе и продолжается до n-1.
Внутри цикла переменная a считывается из ввода пользователя.
Сравнение if a<mn then mn:=a используется для обновления значения переменной mn, если текущее значение mn меньше a.
Сравнение if a>mx then mx:=a используется для обновления значения переменной mx, если текущее значение mx меньше a.
Строка write('Min=',mn,' Max=',mx) используется для вывода минимального и максимального значений переменных mn и mx.
Строка readln используется для чтения ввода пользователя после вывода результатов.