Вывести на печать номера точек, лежащих в круге радиусом R с центром в начале координат

uses crt;
function Rasst(x,y:real):real;
begin
Rasst:=sqrt(sqr(x-1)+sqr(y-1));
end;
var x,y:array[1..100] of real;
    n,i,k:byte;
    r:real;
begin
clrscr;
randomize;
write('Количество точек n=');
readln(n);
for i:=1 to n do
 begin
  x[i]:=10*random-4;
  y[i]:=10*random-4;
 end;
write('X:');
for i:=1 to n do
write(x[i]:5:1);
writeln;
write('Y:');
for i:=1 to n do
write(y[i]:5:1);
writeln;
writeln;
write('Введите радиус круга r=');
readln(r);
writeln('Номера точек внутри круга:');
k:=0;
for i:=1 to n do
if Rasst(x[i],y[i])<=r then
 begin
  k:=1;
  write(i,' ');
 end;
if k=0 then write('Внутри круга точек нет!');
readln
end.

begin
  x[i]:=10*random-4;
  y[i]:=10*random-4;
 end;

 var a:array[1..100] of real;
        x,y,v,m: integer;
        n: integer;
Begin
Write('x='); readln(x);
 Write('y='); readln(y);
  Write('v='); readln(v);
   Write('m='); readln(m);
 
   for x:=1 to n do
   for y:=1 to n do
   for v:=1 to n do
   for m:=1 to n do
 if (x=y) and (v=m) then Write('da');
 if (x=v) and (y=m) then write ('da');
 if (x=m) and (y=v) then write ('da')
 else  write('no');
 readln
End.

var x,y,v,m: integer;
Begin
Write('x='); readln(x);
Write('y='); readln(y);
Write('v='); readln(v);
Write('m='); readln(m);
if ((x=y) and (v=m))or((x=v) and (y=m))or((x=m) and (y=v)) then write ('da')
else  write('no');
readln
End.