ДОРОБОТКА МАСИВА

[Lev.F]

Дан двухмерный массив целых чисел. Вставить в него строку из нулей между всеми строками, в которых количество положительных элементов равно количеству отрицательных.В паскале Помогите доработать вот код:

Uses WinCrt;
type
st=string[10];
var n,m,k,i,j,p,q,x,c,d:integer;
a:array [1..20,1..20] of integer;
Begin
writeln('введите число строк массива');
readln(n);
writeln('введите число столбцов массива');
readln(m);
randomize;
for i:=1 to n do
for j:=1 to m do
a[i,j]:=-5 + random (10);
for i:=1 to n do{для каждой строки}
begin
writeln;
for j:=1 to m do
write(a[i,j],'   ');
end;
writeln;
for i:=1 to n do
for j:=1 to m do
begin
k:=m div 2;
x:=i;
for c:=1 to k do
for d:=k to m do
begin
p:=a[i,c];
q:=a[i,k];
if ((p>0)and (q<0)) or ((p<0) and (q>0)) then
begin
for j:=1 to m do
for i:=n+1 to x do
a[i,j]:=a[i-1,i];
for j:=1 to m do
a[x+1,j]:=0;
end;
end;
end;
for i:=1 to n+1 do{для каждой строки}
begin
writeln;
for j:=1 to m do
write(a[i,j],'   ');
end;
end.