Паскаль, графика. Движущийся шар по спирали по часовой и против часовой стрелки

Program shar;
uses graphABC;
Const p:array[1..4] of string[25]=('Титульник','По часовой стрелке','Против часовой стрелки','Выход') ;
Var a, i:byte;
b:char;
c:byte;
t:integer;
{-----------------------------------------------------------}
procedure okno;
var x,y:integer;
s:string;
begin 
  x:=windowwidth;
  y:=windowheight;
  str(x,s);
  textout(100,100,s);
  str(y,s);
  textout(100,500,s);
end;
procedure text_menu(a:byte); 
var i:byte; 
begin 
  for i:=1 to 4 do 
    begin 
    if i=a then 
    setfontcolor(clred) 
   else
    setfontcolor(clblack);
    textout(280,170+30*i,p[i]); 
    end; 
end; 
{---------------------------------------------------------------}
Procedure titulniy;
begin
Setfontcolor((clblack));
Textout(100,5,'Министерство образования и науки Российской Федерации');
Textout(10,20,'Федеральное государственное автономное общеобразовательное учереждение высшего');
Textout(10,35,'профессионального образования "Уральский федеральный университет имени первого Президента');
Textout(250,50,'России Б.Н.Ельцина"');
Textout(250,80,'Строительный институт');
Textout(255,95,'Кафедра Гидравлики');
Textout(260,110,'Курсовая работа');     
Textout(262,125,'по информатике');
Textout(220,145,'"Движение шарика по спирали"');
Textout(420,280,'Группа Ст-150003');
Textout(420,295,'Выполнил:  Романенко Р.П.');
Textout(420,310,'Проверила:  Служеникина Н.В.');  
Textout(420,325,'Дата сдачи:15.05.2016');
Textout(250,450,'Екатеринбург, 2016');
end;
{--------------------------------------------}
procedure pochasovoi;
var xc,yc,x,y,n,i,j:integer;
    a,r,f:real;
    m:array[1..2,1..10000]of integer;
begin
setwindowsize(650,650);
centerwindow;
xc:=windowwidth div 2;
yc:=windowheight div 2;
n:=0;
a:=0;
f:=2;
while f<30*pi do
 begin
  r:=2*f;
  n:=n+1;
  m[1,n]:=round(xc+r*cos(f));
  m[2,n]:=round(yc+r*sin(f));
  f:=f+0.01;
 end;
j:=0;
a:=0;
f:=2;
lockdrawing;
while f<30*pi do
 begin
  clearwindow;
  r:=2*f;
  x:=round(xc+r*cos(f));
  y:=round(yc+r*sin(f));
  j:=j+1;
  for i:=1 to j do
  setpixel(m[1,i],m[2,i],clBlue);//рисуем траекторию
  setpencolor(clred);
  setbrushcolor(clred);
  circle(x,y,5);  //рисуем шарик
  sleep(1);
  f:=f+0.01;
  redraw;
 end;
end;
{-------------------------------------------}
procedure knopki(t:integer); 
begin 
case t of 
Vk_enter:
if a=1 then begin clearwindow; titulniy ;  end
else
begin if a=2 then begin clearwindow; pochasovoi;
 
end;
if a=4 then begin closewindow; end;
 
end;
 
 
    
VK_Up:    begin  a:=a-1; if a=0 then a:=4;text_menu(a); end;   
VK_Down:  begin  a:=a+1; if a=5 then a:=1;text_menu(a); end;
    
Vk_Escape:
begin  
if a=1 then begin clearwindow; text_menu(a); end;
if a=2 then begin clearwindow; text_menu(a);  end;
if a=3 then begin clearwindow; text_menu(a);  end;
if a=4 then begin clearwindow; text_menu(a);  end;
end;
end; 
end; 
{--------------------------------}
begin
a:=1;
 
 
text_menu(a); 
onkeydown:=knopki;
 
{pochasovoi;
onkeydown:=knopki;}
end.

Program shar;
uses graphABC;
Const p:array[1..4] of string[25]=('Титульник','По часовой стрелке','Против часовой стрелки','Выход') ;
Var a:byte;
{-----------------------------------------------------------}
procedure okno;//ЗАЧЕМ ЭТО?
var x,y:integer;
begin
  x:=windowwidth;
  y:=windowheight;
  textout(100,100,inttostr(x));
  textout(100,500,inttostr(y));
end;
procedure text_menu(a:byte);
var i:byte;
begin
for i:=1 to 4 do
 begin
  if i=a then setfontcolor(clred)
  else setfontcolor(clblack);
  textout(280,170+30*i,p[i]);
 end;
end;
{---------------------------------------------------------------}
Procedure titulniy;
begin
Setfontcolor((clblack));
Textout(100,5,'Министерство образования и науки Российской Федерации');
Textout(10,20,'Федеральное государственное автономное общеобразовательное учереждение высшего');
Textout(10,35,'профессионального образования "Уральский федеральный университет имени первого Президента');
Textout(250,50,'России Б.Н.Ельцина"');
Textout(250,80,'Строительный институт');
Textout(255,95,'Кафедра Гидравлики');
Textout(260,110,'Курсовая работа');
Textout(262,125,'по информатике');
Textout(220,145,'"Движение шарика по спирали"');
Textout(420,280,'Группа Ст-150003');
Textout(420,295,'Выполнил:  Романенко Р.П.');
Textout(420,310,'Проверила:  Служеникина Н.В.');
Textout(420,325,'Дата сдачи:15.05.2016');
Textout(250,450,'Екатеринбург, 2016');
end;
{--------------------------------------------}
procedure spiral(k:integer);
var xc,yc,x,y,n,i,j:integer;
    r,f:real;
    m:array of Point;//[1..2,1..10000]of integer;
begin
setwindowsize(650,650);
centerwindow;
xc:=windowwidth div 2;
yc:=windowheight div 2;
setbrushcolor(clred);
setbrushstyle(bsSolid);
n:=0;
f:=0;
while f<=20*pi do
 begin
  r:=5*f;
  n:=n+1;
  setlength(m,n);
  m[n-1].x:=round(xc+r*cos(f));
  m[n-1].y:=round(yc+k*r*sin(f));
  f:=f+0.05;
 end;
j:=0;
f:=0;
lockdrawing;
while f<=20*pi do
 begin
  clearwindow;
  r:=5*f;
  x:=round(xc+r*cos(f));
  y:=round(yc+k*r*sin(f));
  j:=j+1;
  moveto(m[0].x,m[0].y);
  setpencolor(clBlue);
  for i:=1 to j-1 do
  lineto(m[i].X,m[i].y);
  setpencolor(clred);
  setbrushcolor(clred);
  setbrushstyle(bsSolid);
  circle(x,y,5);  //рисуем шарик
  sleep(1);
  f:=f+0.05;
  redraw;
 end;
unlockdrawing;
setbrushcolor(clWhite);
end;
{-------------------------------------------}
procedure knopki(t:integer);
begin
case t of
Vk_enter:case a of
         1:begin 
           clearwindow; 
           titulniy ;  
           end;
         2:begin 
           clearwindow; 
           spiral(1);
           end;
         3:begin 
           clearwindow; 
           spiral(-1);
           end;  
         4:closewindow; 
         end;
VK_Up:begin
      a:=a-1; 
      if a=0 then a:=4;
      text_menu(a); 
      end;
VK_Down:begin
        a:=a+1;
        if a=5 then a:=1;
        text_menu(a); 
        end;
Vk_Escape:begin//выход из каждой из 3х процедур
          setwindowsize(640,480); 
          clearwindow;
          a:=1;
          text_menu(a);
          end;
end;
end;
 
{--------------------------------}
begin
a:=1;
centerwindow;
text_menu(a);
onkeydown:=knopki;
end.