Паскаль. массив 6:6."Узнать есть ли столбец, в котором равное кол-во положит. и отрицат. элементов". Задание сделала, НО

получилось ОЧЕНЬ длинно! А сократить не могу, не знаю как и что нужно дописать.

program dz1;
var pol,otr,i,j:integer;
a:array [1..6,1..6] of integer;
begin
for i:=1 to 6 do
begin
for j:=1 to 6 do
begin
a[i,j]:=random (21)-10;
write(a[i,j]:5);
end;
writeln;
end;

begin
pol:=0;
otr:=0;

begin
for i:=1 to 6 do
if a[i,1]>=0 then pol:=pol+1 else otr:=otr+1;
end;
if pol=otr then writeln('есть в 1 ряду');
end;
begin
pol:=0;
otr:=0;
for i:=1 to 6 do
if a[i,2]>=0 then pol:=pol+1 else otr:=otr+1;
if pol=otr then writeln('есть в 2 ряду');
end;
begin
pol:=0;
otr:=0;
for i:=1 to 6 do
if a[i,3]>=0 then pol:=pol+1 else otr:=otr+1;
if pol=otr then writeln('есть в 3 ряду');
end;
begin
pol:=0;
otr:=0;
for i:=1 to 6 do
if a[i,4]>=0 then pol:=pol+1 else otr:=otr+1;
if pol=otr then writeln('есть в 4 ряду');

end;
begin
pol:=0;
otr:=0;
for i:=1 to 6 do
if a[i,5]>=0 then pol:=pol+1 else otr:=otr+1;
if pol=otr then writeln('есть в 5 ряду');
end; begin
pol:=0;
otr:=0;
for i:=1 to 6 do
if a[i,6]>=0 then pol:=pol+1 else otr:=otr+1;
if pol=otr then writeln('есть в 6 ряду');
end;

end.

билась, билась, а по-другому не получается

точно.. столбец же...

алго не знает такой команды как inc