Движение линии

[motaro]

В программе линию можно поворачивать влево и вправо, мне нужно чтобы в программе при нажатии клавиши вверх изображалось движение линии по траектории, на которую она направлена (это организовать у меня не получается)

uses crt,graph;
var
device,mode:integer;
x,y,x1,y1:integer; {Координаты линии}
So:integer; {Счетчик отклонения}
Ugol:real; {Угол наклона линии}
key:char;
begin
 x:=320;y:=450;x1:=320;y1:=410;
 initgraph (device,mode,'');
 line (x,y,x1,y1);
 while true do begin
  if readkey=#0 then key:=readkey;
  case key of
   #75: begin {Поворот влево}
    if So>-20 then begin
     SetColor(Black);      {Стереть}
     Line (x,y,x1,y1);     {линию с предыдущими координатами}
     Dec(So); Ugol:=1.52-So*0.080;
     x1:=x+Trunc(40*cos(Ugol));
     y1:=y-Trunc(40*sin(Ugol));
     SetColor(White);      {Рисование}
     Line (x,y,x1,y1);     {линии с новыми координатами}
    end;
   end;
   #77: begin {Поворот вправо}
    if So<20 then begin
     SetColor(Black);      {Стереть}
     Line (x,y,x1,y1);     {линию с предыдущими координатами}
     Inc(So); Ugol:=1.52-So*0.075;
     x1:=x+Trunc(40*cos(Ugol));
     y1:=y-Trunc(40*sin(Ugol));
     SetColor(White);      {Рисование}
     Line (x,y,x1,y1);     {линии с новыми координатами}
    end;
   end;
  end;
 end;
 closegraph
end.