Найти разницу наибольшего и наименьшего чисел массива. Вывести массив на экран

program test1;
var a:array[1..255] of integer;
i,max,min,k,n:integer;
begin
randomize; {Функция "Разнообразия" случайных значений}
writeln('Введите размерность массива');
readln(n); {вводим размерность массива}
for i:=1 to n do
a[i]:=random(100)-50; {Заполняем массив случайными числами}
min:=a[1]; max:=a[1]; {Присваиваем начальное значение максимуму и минимуму}
for i:=1 to n do begin
if a[i]>max then max:=a[i]; {Если какой-то элемент массива больше, чем максимум, то он и становится максимумом}
if a[i]<min then min:=a[i]; {Если какой-то элемент массива меньше, чем минимум, то он и становится минимумом}
end;
k:=max-min; {рассчитываем разность между максимумом и минимумом}
writeln('Максимум',' ',max,' ','Минимум',' ',min);
writeln('Разница',' ',k); {Выводим разницу}
readln;
end.

program test1;
type mas = array[1..255] of integer;
var a:mas;
  i,max,min,k,n:integer;
 
procedure output(z : mas; size : integer);
var i : integer;
begin
  for i := 1 to size do write(z[i]:4);
  writeln  
end;
 
begin
  randomize; {Функция "Разнообразия" случайных значений}
  writeln('Введите размерность массива');
  readln(n); {вводим размерность массива}
  for i:=1 to n do
  a[i]:=random(100)-50; {Заполняем массив случайными числами}
  min:=a[1]; max:=a[1]; {Присваиваем начальное значение максимуму и минимуму}
  for i:=1 to n do begin
    if a[i]>max then max:=a[i]; {Если какой-то элемент массива больше, чем максимум, то он и становится максимумом}
    if a[i]<min then min:=a[i]; {Если какой-то элемент массива меньше, чем минимум, то он и становится минимумом}
  end;
  k:=max-min; {рассчитываем разность между максимумом и минимумом}
  {/////}
  output(a, n);
  {/////}
  writeln('Максимум',' ',max,' ','Минимум',' ',min);
  writeln('Разница',' ',k); {Выводим разницу}
  readln;
end.