Дана целочисленная матрица размера M x N. Вывести номер ее последнего столбика, который содержит равное количество положительных и отрицательных элементов (нулевые элементы не учитываются). Если таких столбиков нет, то вывести 0 — Pascal(Паскаль)

uses crt;
var
a: array [1..100 , 1..100] of integer;
g,k,l,n,m,i,j:integer;
begin
clrscr;
write('Vvedite n: '); readln(n);
write('Vvedite m: '); readln(m);
randomize;
for i:=1 to n do
for j:=1 to m do
{a[i,j]:=random (100);}
begin write('Vvedite el: '); readln(a[i,j]); end;
for i:=1 to n do
for j:=1 to m do
begin
if a[i,j]>0 then k:=k+1;
if a[i,j]<0 then l:=l+1;
if k=l then g:=i;
end;
write(g);
readkey;
end.