Удаление строки (столбца) матрицы и отображение конечной матрицы

Procedure CreateMat(var k,p: integer;var X:matrix);
var i,j: integer;
begin
write('number of rows='); readln(k);
write('number of columns='); readln(p);
for i:=1 to k do begin
  for j:=1 to p do
  read(x[i,j]);
writeln
end
end;

Type matrix=array[1..30,1..30] of integer;
Var n,m:integer; A:matrix;
Procedure CreateMat(var k,p: integer;var X:matrix);
var i,j: integer;
begin
write('number of rows='); readln(k);
write('number of columns='); readln(p);
for i:=1 to k do begin
  for j:=1 to p do
  read(x[i,j]);
writeln
end
end;
function NegRow(p,i:integer; X:matrix):boolean;
var j:integer; t:boolean;
begin
t:=true;
j:=1;
while (j<=p) and (not t) do begin
  if x[i,j]>=0 then t:=false;
  j:=j+1
  end;
NegRow:=t
end;
Function NegCol(k,j:integer; X:matrix):boolean;
var i:integer; t:boolean;
begin
t:=true;
i:=1;
while (i<=k) and (not t) do begin
  if x[i,j]>=0 then t:=false;
  i:=i+1
  end;
Negcol:=t
end;
Procedure NewMat(k,p:integer;var x:matrix);
var i,j:integer;
Procedure DeleteRow(k,p:integer;X:matrix);
var i,j,l:integer;
begin
for i:=1 to k do
  if NegRow(p,i,X) then begin
    for l:=i to k-1 do
      for j:=1 to p do
        x[l,j]:=x[l+1,j];
    for j:=1 to p do 
        x[k,j]:=0;
    dec(k)
    end
end;
Procedure DeleteCol(k,p:integer;X:matrix);
var i,j,l:integer;
begin
for j:=1 to p do
  if NegCol(k,j,X) then begin
    for l:=j to p-1 do
      for i:=1 to k do
        x[i,l]:=x[i,l+1];
      for i:=1 to k do
        x[i,p]:=0;
      dec(p)
      end
end;
begin
for i:=1 to k do begin
  for j:=1 to p do
    write(x[i,j]:4,' ');
  writeln
  end
end;
begin
Createmat(n,m,A);
NewMat(n,m,A)
end.