Pascal

[STanja]

Помогите пожалуйста с задачей.
В заданной матрице А(mxn) заменить все положительные элементы нулями, если количество отрицательных элементов больше, чем количество положительных элементов.

[_-Re@l-_]

Uses CRT;
var A:array[1..10,1..10] of integer;
     m,n,i,j:integer;
     x,y:integer; //количество положительных и отрицательных элементов
begin
      Clrscr;
      readln(m,n);
      for i:=1 to m do
      begin
             for j:=1 to n do
             begin 
                    write('A[',i,',',j,'] = ');
                    readln(A[i,j]);
              end;
     end;
     x:=0;y:=0;
     for i:=1 to m do
     begin
           for j:=1 to n do
           begin
                  if A[i,j]>0 then x:=x+1;
                  if A[i,j]<0 then y:=y+1;
          end;
     end;
     if y>x then begin
     for i:=1 to m do
     begin
            for j:=1 to n do
            if A[i,j]>0 then A[i,j]:=0;
     end;end;
     for i:=1 to m do
     begin
           for j:=1 to n do
           write(A[i,j],' ');
           writeln;
    end;
    readln;
end.