Дан двумерный массив 4х4, определить максимум и минимум, определить разность, заменить главную диагональ на полученную

const
  n = 4;
 
type
  matr = array[1..n, 1..n] of integer;
 
procedure zapolnenie(var mas: matr);
var
  i, j: integer;
begin
  for i := 1 to n do
    for j := 1 to n do
      mas[i, j] := random(99) + 1;
end;
 
procedure vivod(const mas: matr);
var
  i, j: integer;
begin
  for i := 1 to n do
  begin
    for j := 1 to n do
      write(mas[i, j]:4);
    writeln;
  end;
end;
 
procedure zamena(var mas: matr; const razn: integer);
var
  i: integer;
begin
  for i := 1 to n do
    mas[i, i] := razn;
end;
 
procedure poisk(var mas: matr);
var
  i, j, min, max: integer;
begin
  min := mas[1, 1];
  max := mas[1, 1];
  for i := 1 to n do
    for j := 1 to n do
    begin
      if min > mas[i, j] then
        min := mas[i, j];
      if max < mas[i, j] then
        max := mas[i, j];
    end;
//  Writeln(min, ' ', max);
  zamena(mas, max - min);
end;
 
var
  mas: matr;
 
begin
  zapolnenie(mas);
  vivod(mas);
  poisk(mas);
  Writeln;
  vivod(mas);
end.