Описать процедуру ,которая в матрице А, размером n*n, меняет местами максимальный элемент и элемент А(1,1).- Pascal(Паскаль)

const
  n = 10;
  m = 10;

var
  a: array [1 .. n, 1 .. m] of integer;
  i, j, t: integer;
  max, imax, jmax: integer;

begin
  for i := 1 to n do
  begin
    for j := 1 to m do
    begin
      a[i, j] := random(40);
      write('  ', a[i, j]:3);
    end;
    writeln();
  end;
  writeln('--------');

  t := 0;
  max := a[1, 1];
  imax := 1;
  jmax := 1;
  for i := 1 to n do
  begin
    for j := 1 to m do
      if a[i, j] > max then
      begin
        max := a[i, j];
        imax := i;
        jmax := j;
      end;
    t := a[1, 1];
    a[1, 1] := a[imax, jmax];
    a[imax, jmax] := t;
  end;
  writeln('--------(', imax, ', ', jmax, ')');

  for i := 1 to n do
  begin
    for j := 1 to n do
    begin
      write('  ', a[i, j]:3);
    end;
    writeln();
  end;

end.