Тестовые файлы!

[Марат05]

Задача в Delfi.
1.Условие.Есть ли в данном массиве столбец,в котором равное количество положительных и отрицательных элементов;
Вот массив:
1 1 1 1 1 1
1 2 3 4 5 6
1 3 6 10 15 21
1 4 10 20 35 56
1 5 15 35 70 126
1 6 21 56 125 252

помогите решить эту задачу,работа с тектовыми файлами.Условие задачи не понимаю!

[Яська]

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

[alex_fcsm]

Ничего сложного: нужно проверить, есть ли столбец в которм одинакое число полож и отриц элементов.

for j:=1 to n do
 begin
  otr:=0;
  pol:=0;
  for i:=1 to m do
   if a[i,j]<0 then inc(otr)
      else if a[i,j]>0 then inc(pol);
  if pol=otr then begin
                      writeln('Есть');
                      break;
                      end; 

 end;