Определить количество точек (заданных координатами), лежащих в первой четверти

program Project2;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
type
  massiv=array[1..15] of real;
 
 
procedure vvoda( var x,y:massiv; n:Integer);
var
  fin:Text;
  i:integer;
 begin
   Assign(fin,'Massiv.txt');
   Reset(fin);
   read(fin,n);
   for i:=1 to n do
   begin
   read(fin,x[i]);
   read(fin,y[i]);
   end;
   close(fin);
   readln;
 end;
 
procedure gay  ( var x,y:massiv; kol:Integer);
var
  i,n: Integer;
begin
for I:=1 to n do
if (x[i]>=0) and (y[i]>=0)
then Inc(kol);
end;
 
 
 procedure vivoda(var  n:integer; x,y:massiv; kol:integer);
 var
   ee:text;
   i:integer;
begin
   assign(ee,'vivod.txt');
   rewrite(ee);
   writeln;
   for i:=1 to n do
   begin
    write(x[i]:8:2);
    write(y[i]:8:2);
   end;
    write(kol);
    writeln(ee);
    close(ee);
    Readln;
end;
 
 
 
 var x,y:massiv;
 n,i,kol:Integer;
 fin,ee:text;
 
 
 begin
   vvoda(x,y,n);
   vivoda(n,x,y,kol);
   readln;
 end.