Удаление строк и столбцов в матрице Delphi

Задание на лабораторную работу: Создать матрицу NxM, в ней найти строку с наибольшим числом отрицательных элементов и столбец с наибольшим числом положительных элементов и удалить их.

Матрица заполнялась рандомными числами от -10 до 10. У пользователя есть возможность задать матрицу с максимальным размером 10 x 10 (было сделано для наглядности, чтобы можно было отследить удаляемые строки и столбцы).

Замечание: если в матрице нексколько строк/столбцов с одинаковым наибольшим числом нужных элементов, будет удалена первая строка/столбец с данным количеством элементов.

Приложение:

if imax <> 0 then
begin
for i:=imax to n-1 do
  for j:=1 to m do
    x[i,j]:=x[i+1,j];
    n:=n-1;
end;

if jmax <> 0 then
begin
for j:=jmax to m-1 do
  for i:=1 to n do
    x[i,j]:=x[i,j+1];
    m:=m-1;
end;

СОДЕРЖАНИЕ АРХИВА:

• Искомый dpr-файл