Определить, на сколько рост самого высокого человека превышает рост самого низкого - PascalABC.NET

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

В массиве хранится информация о росте 25 человек. Определить, на сколько рост самого высокого человека превышает рост самого низкого. Исправьте

const n = 25;
var a : array [1..n] of integer;
    i : byte;
    min, max, r: integer;
    
begin
Randomize;
min := 190;   max := 1;
for i := 1 to n do begin
    a[i]:=random(41) + 150; 150..190 
    if (min > a[i]) then min := a[i];
    if (max < a[i]) then max := a[i];
    end;
r := max - min;
 writeln;
end.

Решение задачи: «Определить, на сколько рост самого высокого человека превышает рост самого низкого»

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

const n = 25;
var a : array [1..n] of integer;
    i : byte;
    min, max, r: integer;
    
begin
Randomize;
min := 190;   max := 1;
for i := 1 to n do begin
    a[i]:=random(41) + 150;  
    if (min > a[i]) then min := a[i];
    if (max < a[i]) then max := a[i];
    end;
r := max - min;
writeln('максимальный рост: ',max);
writeln('минимальный рост: ',min);
writeln('на ',r,' см');
end.

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

В начале программы объявляются переменные: — n — количество людей (25); — a — массив для хранения роста людей (1..n); — i — счётчик; — min, max, r — для хранения минимального, максимального роста и разницы между ними соответственно.
Затем инициализируются начальные значения переменных: — min устанавливается равным 190 (максимальный рост самого высокого человека); — max — 1 (минимальный рост самого низкого человека); — r — 0 (разница между ростом самого высокого и низкого человека пока равна 0).
Далее в цикле происходит заполнение массива a случайными значениями роста (150 + random(41)).
Если встретится рост, больший чем текущее значение min, то обновляется значение min.
Если встретится рост, меньший чем текущее значение max, то обновляется значение max.
После завершения цикла, в переменной r хранится разница между max и min.
Выводятся на экран значения max, min и r.