разработать программу на языке программирования Turbo Pascal реализующую алгоритмы обработки одномерных массивов

Программа:
var
Mas : array [1..100] of Integer;
Nom, Kol : Integer;
Min, Max : Integer;
begin
Write('Введите количество учеников (до 100) : '); ReadLn(Kol);
if (Kol <= 0) Or (Kol > 100) then begin WriteLn('Ошибка: Количество учеников не может быть ', Kol); Halt; end;
Min := 200; Max := 0;
for Nom := 1 to Kol do
begin
repeat
Write('Введите рост ученика N ', Nom, ' в сантиметрах : '); ReadLn(Mas[Nom]);
if Mas[Nom] <= 50 then WriteLn('Ошибка: Слишком маленький рост. ');
if Mas[Nom] >= 200 then WriteLn('Ошибка: Слишком большой рост. ');
until (Mas[Nom] > 50) And (Mas[Nom] < 200);
if Mas[Nom] < Min then Min := Mas[Nom];
if Mas[Nom] > Max then Max := Mas[Nom];
end;
WriteLn('Минимальный рост ', Min, ' см');
WriteLn('Максимальный рост ', Max, ' см');
end.
Выполнение:
Введите количество учеников (до 100) : 10
Введите рост ученика N 1 в сантиметрах : 140
Введите рост ученика N 2 в сантиметрах : 130
Введите рост ученика N 3 в сантиметрах : 125
Введите рост ученика N 4 в сантиметрах : 100
Введите рост ученика N 5 в сантиметрах : 50
Ошибка: Слишком маленький рост.
Введите рост ученика N 5 в сантиметрах : 55
Введите рост ученика N 6 в сантиметрах : 60
Введите рост ученика N 7 в сантиметрах : 70
Введите рост ученика N 8 в сантиметрах : 80
Введите рост ученика N 9 в сантиметрах : 90
Введите рост ученика N 10 в сантиметрах : 100
Минимальный рост 55 см
Максимальный рост 140 см