Найти номер столбика, все елементы которого положительные (Turbo Pascal)

[Marisha89]

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

program zadacha_10;
uses crt;
const n=2; m=4;
var
a: array[1..n,1..m] of real;
i,j: integer;
begin
clrscr;
for i:=1 to n do
for j:=1 to m do
begin
write('a[',i,',',j,']= ');
readln(a[i,j]);
end;
for j:=1 to m do
begin
if a[i,j]>0 then
begin
writeln ('номер столбца, в котором все элементы положительные= ', j);
readln;
end
else
begin
writeln ('в столбце ',j,' нет положительных или не все положительные элементы ');
end;
end;
readln;
end.

Вот результаты где все вроде правильно:
Безымянный.jpg
Вот здесь видно ошибку:
Безымянный1.jpg

Заранее спасибо за помощь!

[Vanta11a]

Так вы столбец не смотрите совсем, берете только 1 элемент.
Нужно как-то так:

for i:=1 to n do
begin
  err:=0;
  for j:=1 to m do
    if (a1[i,j]<0) then 
      begin
        err := 1;
        break;
      end;
   if (err=0) then writeln('All ok');
end;

Код накидан в браузере, на синтаксическую правильность не претендует.

[Marisha89]

Не вышло(
Может я не туда что-то добавила, посмотрите пожалуйста:

program zadacha_10;
uses crt;
const n=2; m=4;
var
a: array[1..n,1..m] of real;
i,j,err: integer;
begin
clrscr;
for i:=1 to n do
for j:=1 to m do
begin
write('a[',i,',',j,']= ');
readln(a[i,j]);
end;
for i:=1 to n do
begin
err:=0;
for j:=1 to m do
if a[i,j]>0 then
begin
err:=1;
break;
end;
 if (err=0) then
writeln ('все положительные= ', j);
readln;
end;
readln;
end.

[Vanta11a]

Он у Вас должен сейчас только столбцы с отрицательными элементами печатать.

if (a1[i,j]<0) then

if a[i,j]>0 then

Отличие видите?

[Marisha89]

Спасибо за ответ)
Отличие то вижу, но как исправить програму совершенно не понимаю(

[Vanta11a]

Поменять "больше" на "меньше".

[Marisha89]

Может ответ кому-то пригодится:

program zadacha_10;
uses    crt;
const   n=2; m=4;
var
        a        : array[1..n,1..m] of real;
        i,j      : integer;
        s,s1     : boolean;
begin
    repeat
     for i:=1 to n do
      for j:=1 to m do
        begin
          write('a[',i,',',j,']= ');
          readln(a[i,j]);
        end;
     writeln('Исходная матрица:');
     for i:=1 to n do
      begin
       for j:=1 to m do
         begin
           write(a[i,j]:10:4);
         end;writeln;
      end;writeln;
     s:=True;
     write('Номера столбцов со всеми положительными элементами: ');
     for j:=1 to m do
      begin
       s1:=True;
       for i:=1 to n do
         begin
           if a[i,j]<=0 then
            begin
              s1:=False;break;
            end;
         end;
       if s1 then begin write(j:4);s:=False;end
      end;
      if s then writeln('Отсутствуют.')
           else writeln;
     writeln;write('<Esc> - выход, любая другая - повторение...');
     until readkey=#27;
end.

[Vanta11a]

ЭТО - ответ? Правда? Уберите, оно не работает от слова совсем.

[Marisha89]

Сообщение от Vanta11a

ЭТО - ответ? Правда? Уберите, оно не работает от слова совсем.

А Вы проверяли? Я конечно не специалист, но работающую програму от неработающей отличу.

[Vanta11a]

А Вы проверяли?

Ага.

Я конечно не специалист, но работающую програму от неработающей отличу.

А, ну ну, верьте в себя дальше.

upd:

a[1,1]= -1
a[1,2]= -1
a[1,3]= -1
a[1,4]= -1
a[2,1]= -1
a[2,2]= -1
a[2,3]= 1
a[2,4]= 1
в столбце 1 нет положительных или не все положительные элементы
в столбце 2 нет положительных или не все положительные элементы
номер столбца, в котором все элементы положительные= 3

4й столбец где? Откуда в 3м столбце все элементы - положительные?
upd2: пардон, 4й появляется после readln`а.