Дан массив 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] lt;gt; -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.