Паскаль. Удаление строк и столбцов в матрице. Найти в чем ошибка?

[minkin]

Дана задача:
Если в столбцах, встретился элемент, равный сумме первых двух элементов текущего столбца, то удалите строки, в которых они находятся. Удалите столбцы, в которых первый элемент нулевой. Если такого столбца или строки нет, то вывести сообщение об этом.

В чем тут ошибка?

program MyArrays;
uses crt;
const n=5;
      m=5;
type Array_2D=array[1..n,1..m] of integer;
var A, B: Array_2D;
    i,j,i_,j_,n_,m_: integer;
    zero: integer;
    sums: integer;
Procedure Delete1(Var X : Array_2D; Var n, m : integer; k1 : integer);
Var
  i, j : integer;
Begin
  for i := k1 to n-1 do
    for j := 1 to m do
      X[i, j] := X[i+1, j];
        for j := 1 to m do
          X[n, j] := 0;
  Dec(n);
End;
Procedure Delete2(Var X : Array_2D; Var n, m : integer; k1 : integer);
Var
  i, j : integer;
Begin
  for j := k1 to m-1 do
    for i := 1 to n do
      X[i, j] := X[i, j+1];
        for i := 1 to n do
          X[i, n] := 0;
  Dec(n);
End;
begin
clrscr;
Writeln('Массив из случайных чисел');
{Создание и вывод ммасива}
a[1,1]:=4;a[1,2]:=1;a[1,3]:=4;a[1,4]:=4;a[1,5]:=0;
a[2,1]:=1;a[2,2]:=2;a[2,3]:=1;a[2,4]:=3;a[2,5]:=4;
a[3,1]:=4;a[3,2]:=2;a[3,3]:=3;a[3,4]:=4;a[3,5]:=0;
a[4,1]:=1;a[4,2]:=3;a[4,3]:=1;a[4,4]:=2;a[4,5]:=4;
a[5,1]:=3;a[5,2]:=4;a[5,3]:=4;a[5,4]:=2;a[5,5]:=3;

for i:=1 to n do
begin
  for j:=1 to m do
   begin
   Write(a[i,j]:3);
   b[i,j]:=a[i,j];
   end;
  Writeln;
 end;
Writeln;

n_:=n;
m_:=m;

for i:=1 to n do
for j:=1 to m do
if a[i,j]=a[1,j]+a[2,j] then Delete1(b,n_,m_,i);

Writeln('Массив - после удаления строк:');
for i:=1 to n_ do
begin
  for j:=1 to m_ do
   if b[i,1]<>0 then Write(b[i,j]:3);
  Writeln;
 end;
Writeln;

for j:=1 to m do
if a[1,j]=0 then Delete2(b,m_,n_,j);

Writeln('Массив - после удаления столбцов:');
for i:=1 to n_ do
begin
  for j:=1 to m_ do
   if b[i,j]<>0 then Write(b[i,j]:3);
  Writeln;
 end;
end.