Задача на матрицы, С исп. процедур и функций Опции

[Warn]

Здравствуйте! Помогите, пожалуйста, решить задачу на матрицы с помощью процедур и функций.
Нужно удалить из матрицы А(5*7) все столбцы, содержащие не менее 2-х отрицательных элементов, в из матрицы В(7*7) удалить столбцы, сод. не менее трёх отрицательных элементов. Решаю эту задачку второй вечер, но получается какой-то бред. Она, видимо, должна быть универсальной; в процедуру поиска нужно передавать сам массив, значения размерности массива M x N и число отрицательных элементов, необходимое для того, чтобы решить, удалять столбец или нет; в процедуру удаления стоблца должен передаваться массив, его размерность и номера столбцов для удаления. Но как это реализовать? Не получается у меня..

[klem4]

вот пример, как удлить к-ый столбец

uses crt;
const
   n  = 5;
   m  = 7;

   x : array[1..n,1..m] of integer =
   (
    (1,9,1,5,2,1,0),
    (1,9,3,1,5,2,0),
    (1,9,1,6,7,2,0),
    (1,9,4,2,1,6,0),
    (1,9,2,6,8,1,0)
   );

var
   i,j,t,k : byte;

begin

   clrscr;

   for i := 1 to n do begin
      writeln;
      for j := 1 to m do write(x[i,j],'  ');
   end;

   writeln;

   write('k='); readln(k);

   for j := k to m-1 do
    for i := 1 to n do
    x[i,j] := x[i,j+1];

  writeln;

    for i := 1 to n do begin
      writeln;
      for j := 1 to m-1 do write(x[i,j],'  ');
   end;

  readln
end.