Реализовать перемещение и поворот фигуры

uses crt,graphABC;
var
   i : integer;
begin
 
  line(250,180,250,330);
  line(150,253,360,253);
end.

uses graphABC;
procedure ris(x,y:integer;u:real);
begin
setpencolor(clRed);
line(x+round(10*cos(u)),y-round(10*sin(u)),x+round(55*cos(u)),y-round(55*sin(u)));
line(x+round(10*cos(u+pi)),y-round(10*sin(u+pi)),x+round(55*cos(u+pi)),y-round(55*sin(u+pi)));
setpencolor(clGreen);
line(x+round(55*cos(u-pi/2)),y-round(55*sin(u-pi/2)),x+round(55*cos(u+pi/2)),y-round(55*sin(u+pi/2)));
end;
procedure setka(x,y:integer);
var i:integer;
begin
line(0,y,2*x,y);
line(x,0,x,2*y);
for i:=1 to 250 do
if i mod 25=0 then
 begin
  line(x+round(i),y+3,x+round(i),y-3);
  line(x-round(i),y+3,x-round(i),y-3);
  textout(x+round(i),y+10,inttostr(i));
  textout(x-round(i),y+10,inttostr(-i));
  line(x+3,y-round(i),x-3,y-round(i));
  line(x+3,y+round(i),x-3,y+round(i));
  textout(x-20,y-round(i),inttostr(i));
  textout(x-25,y+round(i),inttostr(-i));
 end;
textout(2*x-10,y-15,'X');
textout(x+5,5,'Y');
textout(x+5,y+10,'0');
end;
var i,xc,yc,x,y,dx,dy:integer;
    u,du:real;
begin
setwindowsize(500,500);
centerwindow;
xc:=windowwidth div 2;
yc:=xc;
x:=xc+70;
y:=yc-65;
dx:=-5;
dy:=-3;
du:=40*pi/180/30;
u:=0;
ris(x,y,u);
lockdrawing;
repeat
clearwindow;
setka(xc,yc);
ris(x,y,u);
sleep(200);
x:=x+dx;
y:=y+dy;
u:=u-du;
redraw;
until(x<xc-120)or(y<yc-155)
end.

//line(0,y,2*x,y);
//line(x,0,x,2*y);