есть программа помогите исправить

[ANARHIST]

Нарисовать на экране катящееся по наклонной вида Y=kX колесо с че-тырьмя спицами.

Program koleso;
uses crt,graph;
var
k,i:integer;
driver,mode:integer;
path:string;
Y,x1,x2,y1,y2,x11,x12,y11,y12:integer;
procedure paint;
 begin
WriteLn('################################ Zadanie 1_1 ################################');
Writeln;
WriteLn('################################ Uslovie ################################');
WriteLn('  Narisovat na ekrane katjasheecja po gorizontali ');
WriteLn(' koleco c cetirmja spicami');
 
WriteLn;
WriteLn('                                                           Vypolnil');
WriteLn('                                                     Kuznetcov A.A.');
WriteLn;
WriteLn('######################## Dlya prodolzheniay nazhmite ENTER######################');
ReadLn;


{///////////////////}
   setcolor(15);
   x1:=round(20*cos(i/120*pi)+82+i);
   y1:=round(20*sin(i/120*pi)+256);
   x2:=round(20*cos(i/120*pi+pi)+82+i);
   y2:=round(20*sin(i/120*pi+pi)+256);

  line(x1,y1+y,x2,y2+y);
   x11:=round(20*cos(i/120*pi+pi/2)+82+i);
   y11:=round(20*sin(i/120*pi+pi/2)+256);
   x12:=round(20*cos(i/120*pi+pi+pi/2)+82+i);
   y12:=round(20*sin(i/120*pi+pi+pi/2)+256);
   line(x11,y11+y,x12,y12+y);

   setcolor(15);
  circle(82+i, 256+y,20);
   circle(82+i, 256+y,30);
    delay(2000);
  setcolor(0);
{///////////////////}

 end;
begin
 i:=-100;
 driver:=vga;
 mode:=vgahi;
path:='g:\bp\bgi';
 initgraph(driver,mode,path);   
  
 repeat  
 inc(k);   
  
 paint;   
 delay(200);   
 cleardevice;   
 inc(i);   
 if i=660 then i:=-280;   
until KeyPressed;   
closegraph;     
end.

[Stilet]

Ну и зачем ты смешал ReadLn и WriteLn с графикой? Хоть бы режим выставил чтоб эти "консольные" команды работали в графическом режиме.

[puporev]

Исключи из процедуры Paint всю текстовую часть(начало), оформи в другой процедуре и вызывай ее сразу в начале программы, после begin и до initgraph. Тогда у тебя сначала в текстовом окне будет презентация, а затем в графическом режиме демонстрация. При повторных запусках все будет в графическом режиме.