[yasensys]

Вставить после всех столбцов, содержащих нулевой элемент, первый столбец. Я гдето неправ, исправьте плиз!!

writeln(g,'<Âòîðîå çàäàíèå>');
for i:=1 to n do
c:=a[i,1];
v:=0; mark:=false;
for j:=1 to n do begin
for i:=1 to m do
if a[i,j]=0 then mark:=true;
for k:=1 to m do
if mark=true then begin b[k,j+v]:=a[k,j]; b[k,j+v+1]:=c[k]; end
else b[k,j+v]:=a[k,j];
if mark=true then v:=v+1;
mark:=false;
end;
for i:=1 to n do begin
writeln(g);
for j:=1 to m+v do
write(g,b[i,j]:3,' ' );
end;