В выходной файл вывести значение максимального и минимального элементов массива - Pascal

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

В первой строке входного файла дано число N – количество элементов массива. Во второй строке даны элементы массива. В выходной файл вывести значение максимального и минимального элементов массива

Решение задачи: «В выходной файл вывести значение максимального и минимального элементов массива»

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

const fIn = 'входной.txt'; fOut = 'выходной.txt';
var n, i, v, max, min : Integer; t : Text;
begin
  Assign(t, fIn); Reset(t); Read(t, n, v);
  max := v; min := v;
  for i := 2 to n do begin Read(t, v); if v > max then max := v else if v < min then min := v; end;
  Close(t);
  Assign(t, fOut); Rewrite(t); Write(t, max, #32, min); Close(t);
end.

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

Объявляются константы и переменные: — fIn — имя входного файла; — fOut — имя выходного файла; — n — количество элементов в массиве; — i — счётчик элементов массива; — v — текущий элемент массива; — max — переменная для хранения максимального элемента; — min — переменная для хранения минимального элемента; — t — текстовый поток.
Открывается входной файл и считывается количество элементов массива.
Значения max и min инициализируются значением первого элемента массива.
В цикле считываются все элементы массива, начиная со второго.
Если очередной элемент больше max, то max присваивается это значение.
Если очередной элемент меньше min, то min присваивается это значение.
Закрывается входной файл.
Открывается выходной файл.
В выходной файл записывается значение max, затем пробел, затем значение min.
Закрывается выходной файл.