Найти наибольший элемент главной диагонали матрицы и вывести на экран все строку, в которой он находится

{
  Обязательно отключить проверку индексов,
  иначе возникнет ошибка времени исполнения
}
{$R-}
Type
  TType = Integer; { Или любой другой тип }
Type
  PVector = ^TVector;
  { Это - одна "строка" динамической матрицы }
  TVector = Array[1 .. 1] of TType;
 
  PDynMatrix = ^TDynMatrix;
  { Сама матрица - представляется как массив указателей на "строки" }
  TDynMatrix = Array[1 .. 1] of PVector;
 
Var
  { Через эту переменную будет осуществляться вся работа с матрицей }
  mxDynamic: PDynMatrix;
  n, i, j: Word;
  max,imax:integer;
Begin
  Write('n = '); ReadLn(n);
 
  { Выделяем память под указатели на "строки" }
  GetMem(mxDynamic, n * SizeOf(PVector));
  { И для каждой "строки" - выделяем память для хранения данных }
  For i := 1 To n Do
    GetMem(mxDynamic^[i], n * SizeOf(TType));
 
  (*** Работаем с матрицей ***)
  {
    Динамическая матрица представлена немного иначе,
    чем динамический массив, поэтому для того, чтобы обратиться
    к ее элементу, необходимы 2 операции разыменования указателей.
    Пример:
  }
  For i := 1 To n Do { Строки }
    For j := 1 To n Do { Столбцы (элементы строки) }
      mxDynamic^[I]^[J]:=random(I*J);
  For i := 1 To n Do
    Begin
      WriteLn;
      For j := 1 To n Do
        begin
          Write(mxDynamic^[I]^[J]:4);
        end;
    End;
  max:=mxDynamic^[1]^[1];
  imax:=1;
  For i := 1 To n Do
    begin
      if mxDynamic^[I]^[i]>max then
        begin
          max:=mxDynamic^[I]^[i];
          imax:=i;
        end;
    end;
  writeln;
  writeln('Max: ',max,', в строке: ',imax);
  For j := 1 To n Do
    write(mxDynamic^[imax]^[j]:4);
  readln;
  (*** Закончили работу с матрицей - уничтожаем ее ***)
 
  { Освобождаем память в обратном порядке: }
  { Сначала - удаляем все "строки" }
  For i := 1 To n Do
    FreeMem(mxDynamic^[i], n * SizeOf(TType));
  { А теперь и указатели на них ... }
  FreeMem(mxDynamic, n * SizeOf(PVector));
End.