Разность велечин массивов - Pascal

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

Дан массив A из N элементов.Определить разность наибольшей и наименьшей абсолютной величины элемента в масиве

Решение задачи: «Разность велечин массивов»

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

uses crt;
var a:array[1..100] of integer;
      min,max,n,i:integer;
begin
 clrscr;
 writeln('n ');
 readln(n);
      writeln('Vvedite 1 - element ');
      readln(a[1]);
min:=abs(a[i]);
max:=abs(a[i]);
 
  for i:=2 to n do
   begin
      writeln('Vvedite ',i,'- element ');
      readln(a[i]);
      if min>abs(a[i]) then min:=abs(a[i]);
      if max<abs(a[i]) then max:=abs(a[i]);
   end;
for i:=1 to n do
 write(a[i],' ');
writeln;
writeln('Raznost ',max-min);
readln;
 
end.

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

Объявлены переменные: a (массив), min (минимальное значение), max (максимальное значение), n (количество элементов), i (счетчик).
Очищен экран и выведено приглашение для ввода количества элементов.
Введено количество элементов.
Выведено приглашение для ввода первого элемента массива.
Введен первый элемент массива и сохранен в переменной a[1].
Инициализированы переменные min и max значением первого элемента массива.
Начиная со второго элемента, выведено приглашение для ввода каждого элемента массива.
Введен каждый элемент массива и сохранен в соответствующем элементе массива a.
Если текущий элемент меньше min, то обновляется значение min.
Если текущий элемент больше max, то обновляется значение max.
Все элементы массива выведены на экран через пробел.
Выведена разница между max и min.
Программа ожидает ввода для продолжения.