program ggg;
uses crt;
const n=5;
m=7;
var x:array[1..m,1..n] of integer;
a,b:array[1..10] of integer;
q,i,j,k:integer;
BEGIN randomize;
clrscr;
for i:=1 to m do begin for j:=1 to n do begin x[i,j]:=random(20)-3;
write(x[i,j]:5);
end;
writeln;
end;
q:=1;
k:=0;
for j:=1 to n do begin i:=m;
while i>1 do if x[i,j]<0 then begin a[q]:=i;
b[q]:=j;
q:=q+1;
k:=k+1;
i:=0;
end else i:=i-1;
end;
writeln;
for i:=1 to n do write(a[i]:5);
writeln;
for i:=1 to n do write(b[i]:5);
writeln;
writeln;
q:=1;
while q<=k do for i:=1 to m do for j:=1 to n do if (i=a[q]) and (j=b[q]) then begin x[i,j]:=0;
q:=q+1;
end;
for i:=1 to m do begin for j:=1 to n do begin write(x[i,j]:5) end ;
writeln;
end;
readln;
END.