Составить программу, которая определяет, принадлежит ли точка с ко-ординатами (х , у) заштрихованной области

program lab_7;
uses crt;
type
     arr=array [1..100] of integer;
var
     f:file of integer;
     z,k,t,r,i,j,x,y:integer;
     a,b:arr;
begin
assign(f,'lab.dat');
rewrite(f);
writeln('Введите кординаты точек X затем Y, признак конца ввода - 0.0'); // начало ввода
repeat
     write('X = ');
     read(x);
     write(f,x);
     write('Y = ');
     read(y);
     write(f,y);
until (x=0)and(y=0);// конец ввода
reset(f);
writeln('Cодержимое файла');// начало вывода
writeln('Кординаты точек по оси X');
i:=0;
while not eof(f) do
     begin
     read (f,x);
     inc(i);
     if i mod 2<>0 
     then
     begin
     write (x:3);
     inc(k);
     a[k]:=x;
     end;
     end;
close(f);
reset(f);
writeln;
writeln('Кординаты точек по оси Y');
i:=0;
z:=0;
while not eof(f) do
     begin
     read (f,x);
     inc(i);
     if i mod 2=0 
     then
     begin
     write (x:3);
     inc(t);
     b[t]:=x;
     end;
     end;
close(f);// конец вывода
writeln;
reset(f);
write('Введите радиус : ');
readln(r);
for i:=1 to k do
if a[i]*a[i]+b[i]*b[i]<=r*r
    then 
    inc(z);
writeln('Количество точек попадающих в радиус круга ',z);
readkey;
end.