Паскаль! с клавиатуры вводится 8 чисел.определить разницу между минимум и максимум

Var ar:array[1..8] of integer;
max,min,i:integer;
begin;
min:=2147483647;   //верхняя граница integer
for i:=1 to 8 do
begin;
readln(ar[i]);
if ar[i]<min then min:=ar[i];
if ar[i]>max then max:=ar[i];
end;
writeln('Max:',max);
writeln('Min:',min);
end.

PascalABC.NET 3.3

begin
  var m:=ReadInteger('m =');
  var n:=ReadInteger('n =');
  Writeln('Массив:');
  var d:=MatrRandom(m,n,0,10).Println(5);
  var mn:=d.ElementsByRow.Min;
  writeln('min = ',mn);
  var b:=d.ElementsByRow.Where(x->x<>mn).Average;
  writeln('среднее значение среди элементов, не совпадающих с минимальным = ',b);
end.

Пример:
m = 3
n = 5
Массив:
   10    1    7    4    4
    3    3    6    8    8
   10    1    2    3   10
min = 1
среднее значение среди элементов, не совпадающих с минимальным = 6

ОТДЕЛ Задание+;
ИСПОЛЬЗУЕТ Вывод ИЗ "...\Отделы\Обмен\", Приём ИЗ "...\Отделы\Обмен\", Матем ИЗ "...\Отделы\Числа\";

ПЕР
  массив: РЯД 30 ИЗ ЦЕЛ;
  сч, число: ЦЕЛ;
  найдено: КЛЮЧ;

УКАЗ
  ОТ сч := 0 ДО РАЗМЕР(массив) - 1 ВЫП
    массив[сч] := УЗК(ВШИРЦЕЛ(Матем.случ() * 65)) + 20;
    Вывод.ЧЦел("%d ", массив[сч], 0, 0, 0)
  КОН;
  Вывод.Цепь("^");
  число := Приём.Число();
  Вывод.Цепь("^");
  найдено := ОТКЛ;
  ОТ сч := 0 ДО РАЗМЕР(массив) - 1 ВЫП
    ЕСЛИ массив[сч] > число ТО
      Вывод.ЧЦел("%d ", массив[сч], 0, 0, 0);
      ЕСЛИ НЕ найдено ТО найдено := ВКЛ КОН
    КОН
  КОН;
  ЕСЛИ НЕ найдено ТО Вывод.Цепь("нет") КОН

КОН Задание.