Дан массив а(n) заполненный присвоением случайным образом. Найти разность между максимальным и минимальным элементами массива и вывести эти элементы и их разность на экран — Pascal(Паскаль)

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