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
   begin
      for j := 0 to n do
      begin
         if (Matrixx[i][j] > Max) then
         begin
            Max := Matrixx[i][j];
            iMax := i;
            jMax := j;
         end;
      end;
   end;
end;