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

[Warn]

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

[Warn]

Эм.. И в продолжение темы
Решил пойти не универсальным способом, в лоб так сказать. Помогите найти ошибку в коде

Procedure DeleteCol(Var MasA: Mas1; Var MasB: Mas2);
 Var Count, i, j, t, k: Integer;
 Begin
      Count:=0;
      For j:=1 To n Do
       Begin
        For i:=1 To m Do
         If MasA[i,j]<0 Then Count:=Count+1;
        If Count>1 Then
         Begin
              For t:=i To n-1 Do
               Begin
                    For k:=1 To m Do
                     Begin
                          MasA[k, t]:=MasA[k, t+1];
                          MasA[k, n]:=0;
                     End;
               End;
         End;
       End;
 End;

В этом коде мне нужно найти столбец, содержащий более одного отриц. элемента, и удалить его.