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

[deniska]

Добрый день! Очень прошу помочь со следующей задачей: в заданной квадратной матрице NxN удалить все строки и столбцы, которые содержат нулевой элемент (то есть если находится 0, то надо удалить сразу и строку и столбец). Для одного нуля моя программа работает, но как сделать для большего количества, я не могу понять. Очень прошу помощи, заранее спасибо!

Вот то что я написал:

program Project1;
{$APPTYPE CONSOLE}
uses
  SysUtils;
const n=4;
type telem=integer;
      mas=array[1..n] of telem;
      matr=array[1..n] of mas;
var i,j,k,p,m:integer;
a:matr;
procedure delstroka(var a:matr; k:integer);
var i,j:integer;
begin
  for i:=k to n-1 do
  for j:=1 to n do
    a[i,j]:=a[i+1,j]
end;
procedure delstolbec(var a:matr; p:integer);
var i,j:integer;
begin
  for i:=1 to n do
  for j:=p to n-1 do
    a[i,j]:=a[i,j+1]
end;
procedure vvod(var a:matr);
var i,j:integer;
begin
  writeln('vvedite massiv');
  for i:=1 to n do
  for j:=1 to n do
    read(a[i,j]);
end;
procedure delnyli(var a:matr);
var i,j,p,k,m:integer;
begin
  for i:=1 to n do
  for j:=1 to n do
      if a[i,j]=0 then
        begin
          k:=i;
          p:=j;
          delstroka(a,k);
          delstolbec(a,p);
        end;
end;
procedure print(var a:matr);
var i,j:integer;
begin
  for i:=1 to n do
      begin
        writeln;
        for j:=1 to n do
            write(a[i,j],' ');
      end;
end;
begin
  vvod(a);
  delnyli(a);
  print(a);
  readln;
  readln;
end.