Запишем каноническое уравнение эллипса:

Теперь составим критерий принадлежности точки А(x,y) заштрихованной области:


Вспомогательная программа, создающая файл:
const
  n=50;
var
  i:integer;
  f:Text;
begin
  Assign(f,'xy.txt');
  Rewrite(f);
  Randomize;
  for i:=1 to n do Writeln(f,6*Random-3,' ',5*Random-2.5);
  Close(f);
end.

Программа, выполняющая задание:
const
  n=50;
var
  x,y:real;
  i,k:integer;
  a:array[1..n,1..2] of real;
  f:Text;
begin
  Assign(f,'xy.txt');
  Reset(f);
  k:=0;
  Writeln('Отобранные точки');
  while not Eof(f) do begin
    Readln(f,x,y);
    if (sqr(x)=1) then
    begin
      Writeln(x,' ',y);
      Inc(k); a[k,1]:=x; a[k,2]:=y
    end
  end;
  Writeln('Количество точек = ',k);
  Close(f);
  Append(f);
  for i:=1 to k do Writeln(f,a[i,1],' ',a[i,2]);
  Close(f)
end.