program koros;
uses graph, crt;
var gd,gm,szin,h:integer;
    szoveg,rs,kxs,kys,sz:string;
    hiba:boolean;
    r,kx,ky:word;
function readtxt(x,y:integer;sz:string):string;
var c:char;
    szov:string;
begin
  szov:='';
  outtextxy(x,y,sz);
  c:=readkey;
  repeat
  if (c=#8) and (length(szov)>0) then
         begin
         setfillstyle(1,black);
         bar(x+textwidth(sz),y,x+textwidth(szov+sz),y+textheight(szov));
         szov:=copy(szov,1,length(szov)-1);
         outtextxy(x+textwidth(sz),y,szov);
         end
     else
      begin
       if c<>#8 then
       begin
       szov:=szov+c;
       outtextxy(x+textwidth(sz),y,szov);
       end;
      end;
    c:=readkey;
  until c=#13;
  readtxt:=szov;
end;

begin
     detectgraph(gd,gm);
     initgraph(gd,gm,'c:\tp70\bgi');
     szoveg:=readtxt(100,100,'Milyen szoveg irodjon ki? : ');
     rs:=readtxt(100,130,'Kor sugara?: ');
     kxs:=readtxt(100,160,'Kozeppont x koordinataja?: ');
     kys:=readtxt(100,190,'Kozeppont y koordinataja?: ');
     val(rs,r,h);
     hiba:=hiba or (h<>0);
     val(kxs,kx,h);
     hiba:=hiba or (h<>0);
     val(kys,ky,h);
     hiba:=hiba or (h<>0);
     cleardevice;
     if hiba  then outtextxy(100,100,'Rossz adat') else
     begin
      setcolor(red);
      setfillstyle(solidfill,blue);
      circle(kx,ky,r);
      floodfill(kx,ky,red);
      setcolor(white);
      settextjustify(centertext,toptext);
      setcolor(white);
      outtextxy(kx,ky+r,szoveg);
      settextstyle(0,1,1);
      settextjustify(righttext,centertext);
      setcolor(white);
      outtextxy(kx-r,ky,szoveg);
     end;
     readkey;
     closegraph;
end.