procedure FindMax(const Matrixx: MatrixType; n: Integer);
var
   Max, iMax, jMax, i, j: Integer;
begin
   Max := Matrixx[0][0];
   iMax := 0;
   jMax := 0;
   for i := 0 to n do
      for j := 0 to n do
         if (Matrixx[i][j] > Max) then
            Max := Matrixx[i][j];
            iMax := i;
            jMax := j;
end;