заполнить одномерный массив случайными числами из отрезка [0,100], состоящих из 10 элементов. Найдите размах между наибольшим и наименьшим значением массива

Program krab52;
uses crt;
const
  n=10;
var
  a:array [1..n] of integer;
  i,max,min:integer;
begin
  writeln(*** alphaues is thinking... ***);
  writeln(***          OK             ***);
  writeln();
  randomize;
  {заполняем массив}
  for i:=1 to n do
    begin
      a[i]:=random(101);
      write (a[i]:4);
    end;
  writeln();
  {ищем макс и мин}
  max:=a[1];
  min:=a[1];
  for i:=2 to n do
    begin
      if a[i]      if a[i]>max then max:=a[i];
    end;
{выводим результат}
  writeln();
  writeln( Максимальный элемент ,max);
  writeln( Минимальный элемент ,min);
  writeln( Размах между максимальным и минимальным элементами ,max-min);
    end.