Матрица, Delphi

[topside]

Добрый день, нужна помощь по программе с матрицей. (Точнее с ее частью, остальное задание у меня затруднений не вызывает). Нужно в заданной матрице вычеркнуть строку, содержащую максимальный элемент. FAQ по матрицам читал, но он мне не особо помог, т.к. все что там написано я вроде бы знаю, а код я написал и не понимаю честно говоря, что в нем не правильно. Прошу помочь.

program Matrix2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

const
  MAX_NS = 20;
  MAX_NK = 12;

var
  T: array of array of Real;
  K: array of Integer;
  I, J, L: Integer;
  NK, NS: Integer;
  Max: Real;
  IMax, JMax: Integer;
  C: Real;

begin
  NS := 21;
  NK := 13;
  while (NS > 20) and (NK > 12) do
  begin
    WriteLn('Введите кол-во строк матрицы, не большее ', MAX_NS);
    ReadLn(NS);
    WriteLn('Введите кол-во столбцов матрицы, не большее ', MAX_NK);
    ReadLn(NK);
  end;
  WriteLn('Введите матрицу ', NS, '*', NK);
  SetLength(T,NS,NK);
  for I := 0 to High(T) do
    for J := 0 to High(T[I]) do
      Read(T[I,J]);

  WriteLn;
  WriteLn('Исходная матрица: ');
  for I := 0 to High(T) do
  begin
    for J := 0 to High(T[I]) do
      Write(' ':2, T[I,J]:5:3, ' ');
      WriteLn;
  end;

  Max := T[0,0];
  IMax := 0;
  JMax := 0;
  for I := 0 to High(T) do
    for J := 0 to High(T[I]) do
      if T[I,J] > Max then
      begin
        Max := T[I,J];
        IMax := I;
        JMax := J;
      end;

  for J := 0 to High(T[I]) do
    for I := 0 to High(T) do
      if I = IMax then
        for L := I to High(T) do
        begin
          C := T[L,J];
          T[L,J] := T[L+1,J];
          T[L+1,J] := C;
        end;
  SetLength(T,NS-1,NK);

  WriteLn;
  WriteLn('Преобразованная матрица: ');
  for I := 0 to High(T) do
  begin
    for J := 0 to High(T[I]) do
      Write(' ':2, T[I,J]:5:3, ' ');
      WriteLn;
  end;
      

  ReadLn;
  ReadLn;
end.

[topside]

Додумался, тред можно закрывать