Матрица, Обнулить строки и столбцы,где присутствуют нули Опции

[Rom1k]

Задание:
обнулить строку и столбец матрицы в которой имеется "0"

можно использовать вспомогательный одномерный массив.
ввожу матрицу,а дальше что делать?
помогите,плизззззз!

uses crt;

const
  Nmax=10;{Максимальное значение строк и столбцов матрицы}
type
  mas=array[1..Nmax,1..Nmax] of integer;
var
 A:mas;
 N,M:byte;{Кол-во строк и столбцов}

procedure vvod_mas(var a:mas;var n,m:byte);
{Ввод матрицы с запоминанием позиции,для последующего
			  обнуления строки и столбца}
var i,j:integer;
begin
 repeat
  Write('Zadaite 4islo strok v matrice (1..',nmax,'): ');
  ReadLn(N);
  If (N<=0) and (N>Nmax) then
   WriteLn('error! povtorite!');
 until (N>0) and (N<=Nmax);
 repeat
  Write('Zadaite 4islo stolbcov (1..',nmax,'): ');
  ReadLn(M);
  If (M<=0) and (M>Nmax) then
   WriteLn('Error! Povtorite!');
 until (M>0) and (M<=Nmax);

 WriteLn('Zadaite elementi matrici po strokam 4erez probel ');
 For i:=1 to N do
  begin
   Write('Stroka ',i,': ');
   for j:=1 to M do
    begin
     Read(A[i,j]);
    end;
  end;
end;

procedure vivod(var a:mas;var n,m:byte);
 var i,j:integer;
 begin
  WriteLn('Rezultat: ');
   for i:=1 to N do
    begin
     for J:=1 to M do
      Write(a[i,j]:4);
     WriteLn;
    end;  end;

BEGIN{main}
 clrscr;
 vvod_mas(a,n,m);
 vivod(a,n,m);
 writeln;
 readkey;
end.