Произвести заданные действия с матрицей

const n = 5;
type matr = array[1..n, 1..n] of integer;
 
procedure Gen(var a: matr);
var i, j: byte;
begin
  for i := 1 to n do
    for j := 1 to n do
      a[i, j] := random(41) - 20;
end;
 
procedure Outp(a: matr);
var i, j: byte;
begin
  for i := 1 to n do 
  begin
    for j := 1 to n do write(a[i, j]:4);
    writeln;
  end;
end;
 
procedure MinMax(a: matr; var imax, jmax, imin, jmin: byte);
var i, j: byte;
begin
  imax := 1; jmax := 1; imin := 1; jmin := 1;
  for i := 1 to n do
    for j := 1 to n do begin
      if a[i, j] > a[imax, jmax] then begin
        imax := i; jmax := j;
      end;
      if a[i, j] < a[imin, jmin] then begin
        imin := i; jmin := j;
      end;
    end;
  writeln('Max = ', a[imax, jmax], '; Min = ', a[imin, jmin]);
end;
 
procedure Sum(a: matr);
var i, j, count: byte;
    sum: integer;
begin
  sum := 0; count := 0;
  for i := 1 to n do
    for j := 1 to n do
      if a[i, j] mod 2 <> 0 then begin
        sum := sum + a[i, j];
        inc(count);
      end;
  writeln('Sum = ', sum, '; Count: ', count);
end;
 
procedure Average(a: matr);
var i, j, count: byte;
    ave: real;
begin
  ave := 0; count := 0;
  for i := 1 to n do
    for j := 1 to n do
      if a[i, j] < 0 then begin
        inc(count); ave := ave + a[i, j];
      end;
  ave := ave / count;
  writeln('Average = ', ave:0:3);
end;
 
procedure SwapA(var a: matr; imin, imax: byte);
var j: byte;
    x: integer;
begin
  for j := 1 to n do begin
    x := a[imax, j];
    a[imax, j] := a[imin, j];
    a[imin, j] := x;
  end;
end;
 
var jmin, jmax, imin, imax: byte;
    a: matr;
begin
  randomize;
  writeln('Исходная матрица:');
  Gen(a);
  Outp(a);
  Sum(a);
  MinMax(a, imax, jmax, imin, jmin);
  Average(a);
  writeln('Новая матрица:');
  SwapA(a, imin, imax);
  Outp(a);
end.