Задан двумерный массив, в котором хранятся координаты точек,Определить число точек лежащих в N-ой четверти

program xyz;
const
x=2;y=3;
var
A:array[1..x,1..y] of byte;
l,p,k:byte;
n,m:boolean;
xoy:1..4;
begin
writeln('Введите номер четверти,к которой должны принадлежать точки');
read(xoy);
write('Введите координаты точек');
for l:=1 to x do
 begin
     for p:=1 to y do
       begin
         writeln('a[', l,',', p,']=');
         read(a[l,p]);
       end;
  end;
 if xoy=1 then   
 n:=l>0; m:=p>0;
 if xoy=2 then
 n:=l<0; m:=p>0;
 if xoy=3 then
 n:=l<0; m:=p<0;
 if xoy=4 then
 n:=l>0; m:=p<0;
 k:=0;
 for l:=1 to x do
  begin
  for p:=1 to y do
   begin
   if (n and m) then k:=k+1;
   end;
  end;
  write('количество точек принадлежащей данной четверти равно k= ' , k);
 end.

program xyz;
uses crt;
const nmax=10;
var A:array[1..2,1..nmax] of real;
    n,i,xoy,k:integer;
begin
clrscr;
repeat
writeln('Введите номер четверти,к которой должны принадлежать точки');
read(xoy);
until xoy in [1..4];
repeat
write('Количество точек от 2 до ',nmax,' n=');
readln(n);
until n in [2..nmax];
writeln('Введите координаты точек');
for i:=1 to n do
 begin
  write('x',i,'=');
  readln(a[1,i]);
  write('y',i,'=');
  readln(a[2,i]);
 end;
clrscr;
writeln('Введенные точки');
for i:=1 to n do
writeln('(',a[1,i]:5:1,';',a[2,i]:5:1,')');
writeln;
k:=0;
for i:=1 to n do
case xoy of
1:if(a[1,i]>0)and(a[2,i]>0)then inc(k);
2:if(a[1,i]<0)and(a[2,i]>0)then inc(k);
3:if(a[1,i]<0)and(a[2,i]<0)then inc(k);
4:if(a[1,i]>0)and(a[2,i]<0)then inc(k);
end;
write('количество точек принадлежащей ',xoy,' четверти=',k);
readln
end.

program xyz;
uses crt;
const nmax=10;
type mas=array[1..2,1..nmax] of real;
procedure vvod(var a:mas;var n:integer);
var i:integer;
begin
repeat
write('Количество точек от 2 до ',nmax,' n=');
readln(n);
until n in [2..nmax];
writeln('Введите координаты точек');
for i:=1 to n do
 begin
  write('x',i,'=');
  readln(a[1,i]);
  write('y',i,'=');
  readln(a[2,i]);
 end;
clrscr;
writeln('Введенные точки');
for i:=1 to n do
writeln('(',a[1,i]:5:1,';',a[2,i]:5:1,')');
writeln;
end;
procedure podschet(a:mas;n,c:integer;var k:integer);
var i:integer;
begin
k:=0;
for i:=1 to n do
case c of
1:if(a[1,i]>0)and(a[2,i]>0)then inc(k);
2:if(a[1,i]<0)and(a[2,i]>0)then inc(k);
3:if(a[1,i]<0)and(a[2,i]<0)then inc(k);
4:if(a[1,i]>0)and(a[2,i]<0)then inc(k);
end;
end;
var A:mas;
    n,xoy,k:integer;
begin
clrscr;
repeat
writeln('Введите номер четверти,к которой должны принадлежать точки');
readln(xoy);
until xoy in [1..4];
vvod(a,n);
podschet(a,n,xoy,k);
write('количество точек принадлежащей ',xoy,' четверти=',k);
readln
end.