Сырой массив Опции

[spektr]

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

Задача:

Дана матрица размером N на M,вывести количество строк в которых число положительных элементов больше числа отрицательных элементов.

РЕшение:

PROGRAM bolse;
{ўлў®¤ бва®ЄЁ ў Є®в®а®© Ї®«®¦ЁвҐ«м­ле н«Ґ¬Ґ­в®ўЎ®«миҐ зЁб«  ®ваЁж вҐ«м­ле н«Ґ¬Ґ­в®ў}
uses crt;
VAR
  A: array [1..100,1..100] of integer;
  i,j,n,m,otr,pol,sum  :  integer;
BEGIN
clrscr;
  WriteLn ('Їа®Ја ¬¬  ўлў®¤  бва®ЄЁ ў Є®в®а®© Ї®«®¦ЁвҐ«м­ле н«Ґ¬Ґ­в®ўЎ®«миҐ зЁб«  ®ваЁж вҐ«м­ле н«Ґ¬Ґ­в®ў');
  WriteLn ('введите размерность массива i,j');
  ReadLn (n,m);
  pol:=0;
  otr:=0;
  sum:=0;
    FOR i:=1 to n DO
    FOR j:=1 to m do
      Begin
        WriteLn ('заполните массив');
        readLn (A[i,j]);
      End;
        FOR i:=1 to n DO
          BEGIN
            FOR j:=1 to m DO
              BEGIN
                IF A[i,j]>0
                  Then
                    pol:=pol+1
                  Else
                    otr:=otr+1;
              end;
          end;
        For i:=1 to n do
         BEGIN
           If pol>otr
             then
               sum:=sum+1;
         end;
  WriteLn ('количество строк',sum);
  ReadLn
End.

Вопросы:

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


буду спасибо за любые найденые ошибки,и не сложные объяснения.

[spektr]

задача на двумерный массив сравнивать с этим)))))))))))