Не правильно считывает массив

[Yankeee]

На выборах в Государственную думу в избирательные бюллетени внесено N партий. Электронный сканер для считывания информации с бюллетеней передает информацию о каждом бюллетене в следующем формате: если в соответствующей клетке бюллетеня стоит пометка, то сканер передает + (плюс), в противном случае он передает - (минус). Таким образом, он передает последовательность из N символов - плюсов и минусов.

Бюллетень считается действительным, если пометка есть ровно в одной клетке. Недействительные бюллетени в подсчете результатов выборов не участвуют.

Партия проходит в Государственную Думу, только если она набирает не менее 7% от общего числа действительных бюллетеней.

Требуется вывести номера (в порядке их перечисления в бюллетене) всех партий, которые проходят в Государственную Думу.

Формат входных данных

В первой строке входных данных содержатся два числа, разделенные пробелом: N - количество партий и M - количество бюллетеней. Оба числа натуральные, N <= 200, M <= 100 000.

В следующих M строках записана информация, полученная из бюллетеней. Каждая строка - последовательность из N символов + или - (без пробелов).

Гарантируется, что есть хотя бы один действительный бюллетень.

Формат выходных данных

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

Пример

Входные данные
3 4
+--
+--
-+-
+-+
Выходные данные
1 2

Входные данные
1 5
+
-
-
-
-
Выходные данные
1

вот код программы:

program Vibori;
var
a: array [1..100] of string;
k: array [1..20] of integer;
n, m, i, g, l: integer;
begin
readln (m,n);
for i:= 1 to m do
readln (a[i]);
begin
l:= 0;
for g:= 1 to n do
if copy (a[i], g)='+' then  l:= l+1;
if (l>1) or (l=0) then a[i,1]:= 'n';
end;
for g:= 1 to n do
begin
k[g]:=0;
for i:= 1 to m do
if (copy(a[i], g, 1)='+') and (copy(a[i], 1, 1)<>'n') then k[g]:= k[g]+1;
end;
for g:= 1 to m do
if k[g]> m/100*7 then
writeln(g,' ',);
end.

[ACE Valery]

Не вижу описания ошибки