Вычислить разность между максимальным и минимальным из чисел - Turbo Pascal

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

Дано 8 вешественных чисел. Нужно вычислить разность между максимальным и минимальным из них. Заранее благодарен!

Решение задачи: «Вычислить разность между максимальным и минимальным из чисел»

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

const
 n = 8;
var
 arr: array[1..n] of integer;
 i, min, max: integer;
begin
 min:=1; max:=1;
  for i:=1 to n do
   begin
    arr[i]:=random(100);
    write(arr[i], ' ');
     if arr[i] < arr[min] then min:=i
      else if arr[i] > arr[max] then max:=i;
   end;
 writeln;
 writeln('Максимальный: ', arr[max], '; Минимальный: ', arr[min]);
 writeln('Разница между ними: ', arr[max] - arr[min]);
end.

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

В начале кода объявляются необходимые переменные: n (количество чисел), arr (массив чисел), i, min, max (переменные для хранения минимального и максимального числа).
Затем устанавливаются начальные значения для min и max: min=1, max=1.
Далее идет цикл for, который выполняется n раз (от 1 до 8 в данном случае).
Внутри цикла каждое число из массива arr выводится на экран через функцию write.
После каждого вывода проверяется, является ли текущее число меньше или больше минимального числа в массиве. Если это так, то min обновляется. Если текущее число больше максимального числа, то max также обновляется.
По завершении цикла выводится на экран максимальное число, минимальное число и их разница.
Конец программы.