Найти наибольшие отрицательные элементы каждого столбца матрицы под главной диагональю

program Project1;
uses
  CRT;
const
  maxrow = 20;
  maxcol = 20;
var
  ge: array[1..maxrow,1..maxcol] of integer; { Переменная для хранения массива.}
  t: array [1..maxrow] of integer; { Переменная для хранения массива.}
  n,m: integer; { Переменные для хранения значения строк и столбцов двумерного массива. }
  i,j,k: integer; { Вспомогательные переменные для организации циклов.}
  maxnegvalue: integer; {Переменная для хранения максимального значения отрицательных элементов}
  flag: boolean; {Логическая переменная для организации вывода корректного ответа}
begin
  randomize;
  write('Введите значение размерности матрицы (не более ',maxrow,'): ');
  Readln(n);
  for i:= 1 to n do
    for j:= 1 to n do
    begin
      write('Введите значение элемента [',i,',',j,']: ');
      Readln(ge[i,j]);     { Ввод значений в двумерный массив.}
    end;
  writeln('Исходный массив: ');
  for i:= 1 to n do
    begin
      for j:= 1 to n do
        begin
          if j < i then  {Строка от которой зависит какие элементы массива будут выделены цветом}
            begin
              textcolor(15);   {Выделение белым цветом элементов ниже главной диагонали}
              if ge[i,j] < 0 then
                textcolor(9);     {Выделение синим цветом элементов с отрицательными значениями}
            end
           else
             textcolor(8);       { выделение серым цветом элементов не участвующих в поиске}
           write(ge[i,j]:5);    { Вывод двумерного массива в консоль.}
        end;
      Writeln;
    end;
  textcolor(7);
  k:= 0;
  for j:= 1 to n-1 do
    begin
      flag:= false;
      for i:= j+1 to n do  { Перебор элементов столбцов ниже главной диагонали}
        if (ge[i,j] < 0) then
          begin
            if not flag then   {Назначение первого найденного отрицательного элемента в качестве минимального}
              maxnegvalue:= ge[i,j];
            flag:= true;   { Регистрация события найденного отрицательного элемента}
            if (ge[i,j] > maxnegvalue) then  { Условие поиска максимального элемента среди отрицательных}
              maxnegvalue:= ge[i,j];
          end;
      if flag then       { Проверка на существование отрицательных элементов в столбце}
        begin
          inc(k);   {Увеличение счетчика для нового массива}
          t[k]:= maxnegvalue;
        end
      else
        writeln('В ',j,' столбце элементов с отрицательными значениями не обнаружено.');
    end;
  writeln('Массив с найденными элементами: ');
  for i:= 1 to k do
    write(t[i]:5);
  writeln;
 
  Readln;
end.