где ошибка ?

[mouse697]

Дан двумерный массив 10х15. Вывести на экран номер строки, в которой положительных элементов больше, чем отрицательных.

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

program lab3pr3;
 uses crt;
 var a:array [1..3,1..3] of integer;
 i,j,p,o:integer;
 begin
  clrscr;
  for i:=1 to 3 do
  for j:=1 to 3 do
   readln(a[i,j]);
  for i:=1 to 3 do
   begin
    p:=0; o:=0;
    for j:=1 to 3 do
    begin
     if a[i,j]>0 then p:=p+1;
     if a[i,j]<0 then o:=o+1;
     if p>o then writeln(j);
    end;
   end;
  for i:=1 to 3 do
   begin
    for j:=1 to 3 do
     write(a[i,j]:5);
     writeln;
    end;
  readkey;
 end.

[Teksa]

Посмотри... вроде то:

program lab3pr3;
uses crt;
var a:array [1..3,1..3] of integer;
i,j,p,o:integer;
begin
clrscr;
for i:=1 to 3 do
for j:=1 to 3 do
readln(a[i,j]);
for i:=1 to 3 do
begin
p:=0; o:=0;
writeln;
for j:=1 to 3 do
begin
if a[i,j]>0 then p:=p+1;
if a[i,j]<0 then o:=o+1;

end;
if p>o then writeln(i);
end;
for i:=1 to 3 do
begin
for j:=1 to 3 do
write(a[i,j]:5);
writeln;
end;
readkey;
end.

// извинияюсь за форматирование, его почему то сожрал блокнот.

[mouse697]

спасибо !!!