Мерцание и кое-что еще

 program kurs;
 uses graph,crt;
 
 
 
 procedure zapros(var a,b:byte; var n, m: word);
 var txt: text;
     ch:char;
 begin
 
 assign(txt,'colors.txt'); {pomenyat' put' v konce!!!}
 reset(txt);
 settextstyle(1,0,1);
 settextjustify(0,0);
 moveto(25,25);
 while not eof(txt) do
 begin
   read(txt,ch);
   if ch = #13 then
   begin
     moveto(25, gety + textheight(ch));
   end
   else if (ch <> #10) and (ch <> #13) then outtext(ch);
 end;
 
 outtext( 'Select a color of border from the list, please:');
 repeat
 readln(a);
 until (a<=14) and (1<=a);
 
 
 
 
 
 writeln('Select please color of ball ');
 repeat
 readln(b);
 until (b<=14) and (1<=b);
 
 writeln('Select please radius of ball ');
 repeat
 readln(m)
 until (12<=m) and (m<=40);
 
 writeln('Select please length of square side(50-200) ');
 repeat
 readln(n)
 until (50<=n) and (n<=200);
 end;
 
 
 
 procedure kvadrat(a:byte; n:word);
 var x0,y0 : integer;
 begin
 x0:=getmaxX div 2;
 y0:=getmaxY div 2;
 setfillstyle(1,15);
 setlinestyle(0,0,3);
 setcolor(a);
 rectangle(x0-n,y0-n,x0+n,y0+n );
 end;
 
 {procedure shar(b:byte; m:word);
 begin
 setcolor(b);
 setfillstyle(1,b);
 circle(300,200,m);
 floodfill(300,200,b);
 end;}
 
 procedure moving (b:byte;m,n:word);
 var x,y,x0,y0,dx,dy :integer;
 begin
 dx:=1;
 dy:=1;
 x0:=getmaxX div 2;
 y0:=getmaxY div 2;
 x:=x0;
 y:=y0-n+m+5;
 repeat
 setcolor(b);
 circle(x,y,m);
 setfillstyle(1,b);
 floodfill(x,y,b);
 setcolor(0);
 circle(x,y,m);
 setfillstyle(1,0);
 fillellipse(x,y,m,m);
 x:=x+dx;
 y:=y+dy;
 if x-m=x0-n+5 then dx:=-dx
 else
  if y+m=y0+n-5 then
   dy:=-dy
 else
  if x+m=x0+n-5 then
   dx:=-dx
 else if
  y-m=y0-n+5 then dy:=-dy;
 until keypressed;
end;
 
 var gd,gm: integer;
 
    n,m:word;
     page,a,b :byte;
 
 begin
 
 gd:=DETECT;
 initgraph(gd,gm,'');
 zapros(a,b,n,m);
 cleardevice;
 kvadrat(a,n);
{ shar(b,m);}
 moving(b,m,n);
 readkey;
 closegraph;
 end.