Дан массив B (n*m). Элементы массива задать в программе. Удалить все строки, в которых нет нулевого элемента. Паскаль

var mas:array [1 ... 10,1 ... 10] of integer;

mas2:array [1 ... 10,1 ... 10] of integer;

a, n, m, k:integer;

begin

for n:=1 to 10 do

begin

for m:=1 to 10 do

begin

mas[n, m]:=random (0,9);

end;

end;

for n:=1 to 10 do / / выводим полученный массив на экран

begin

for m:=1 to 10 do

write (mas[n, m]:4);

writeln;

end;

writeln; writeln;

for n:=1 to 10 do

begin

for m:=1 to 10 do

begin

if (mas[n, m] = 0) and (a = 0) then

begin

for a:=1 to 10 do

mas[n, a]:=-1;

end;

end;

a:=0;

end;

k:=1;

n:=0;

for a:=1 to 10 do

begin

inc (n);

if mas[a, 1] - 1 then

begin

for m:=1 to m do

begin

mas2[k, m]:=mas[n, m];

end;

inc (k);

end;

end;

for n:=1 to k-1 do / / выводим полученный массив на экран

begin

for m:=1 to 10 do

begin

write (mas2[n, m]:4);

end;

writeln;

end;

end.