Построить на экране точки с заданными координатами

begin
randomize;
assign(f,'tochki.txt');
rewrite(f);
r:=200;
x0:=310;
y0:=230;
write(f,x0,' ');
write(f,y0,' ');
write(f,r,' ');
for i:=1 to n do begin
x:=random(640);
y:=random(480);
write(f,x,' ');
write(f,y,' ');end;
init;{ моя процедура инициализации}
reset(f);
Read(f,x0);
Read(f,y0);
Read(f,r);
while not eof(f) do begin
read(f,x);
read(f,y);
if sqr(x-x0)+sqr(y-y0)<=sqr(r) then 
putpixel(x,y,10);
end;
close(f);
readkey;
end.

uses crt,graph;
var f:text;
    n,i,gd,gm,mxx,mxy,r:integer;
    x,y,x0,y0:longint;
begin
clrscr;
randomize;
initgraph(gd,gm,'');{зайдем в граф режим, определим размеры экрана}
mxx:=getmaxX;
mxy:=getmaxY;
restorecrtmode;{в текстовый, введем данные}
{чтобы не придумывать и не заполнять файл вручную, создадим его}
repeat
write('Kolichestvo tochek ot 10 do 5000 n=');
readln(n);
until(n>=10)and(n<=5000);
assign(f,'tochki.txt');
rewrite(f);
for i:=1 to n do
 begin
  x:=random(mxx);
  y:=random(mxy);
  writeln(f,x,' ',y);
 end;
{введем параметры окружности чтобы она не вылезала за экран}
repeat
write('Radius okruznosti ot 5 do ',mxy div 2-10,' r=');
readln(r);
until (r>=5)and(r<=mxy div 2-10);
writeln('Koordinaty centra:');
repeat
write('X ot ',r,' do ',mxx-r,' x=');
readln(x0);
until(x0>=r)and(x0<=mxx-r);
repeat
write('Y ot ',r,' do ',mxy-r,' y=');
readln(y0);
until(y0>=r)and(y0<=mxy-r);
{откроем файл и вернемся в графический режим}
reset(f);
initgraph(gd,gm,'');
circle(x0,y0,r);{нарисуем окружность}
while not eof(f) do
 begin
  read(f,x);{прочитаем координаты}
  read(f,y);
  if sqrt(sqr(x-x0)+sqr(y-y0))<=r then{если в окружности}
  putpixel(x,y,12);{рисуем точку}
 end;
close(f);
readln
end.

uses crt,graph;
var f:text;
    n,i,gd,gm,mxx,mxy,r:integer;
    x,y,x0,y0:longint;
begin
clrscr;
randomize;
initgraph(gd,gm,'');
mxx:=getmaxX;
mxy:=getmaxY;
restorecrtmode;
repeat
write('Radius okruznosti ot 5 do ',mxy div 2-10,' r=');
readln(r);
until (r>=5)and(r<=mxy div 2-10);
writeln('Koordinaty centra:');
repeat
write('X ot ',r,' do ',mxx-r,' x=');
readln(x0);
until(x0>=r)and(x0<=mxx-r);
repeat
write('Y ot ',r,' do ',mxy-r,' y=');
readln(y0);
until(y0>=r)and(y0<=mxy-r);
repeat
write('Kolichestvo tochek ot 10 do 5000 n=');
readln(n);
until(n>=10)and(n<=5000);
assign(f,'tochki.txt');
rewrite(f);
writeln(f,x0,' ',y0,' ',r);
for i:=1 to n do
 begin
  x:=random(mxx);
  y:=random(mxy);
  writeln(f,x,' ',y);
 end;
 
reset(f);
initgraph(gd,gm,'');
read(f,x0,y0,r);
circle(x0,y0,r);
while not eof(f) do
 begin
  read(f,x);
  read(f,y);
  if sqrt(sqr(x-x0)+sqr(y-y0))<=r then
  putpixel(x,y,12);
 end;
close(f);
readln
end.