Осуществить перемещение графического объекта по экрану с разным шагом

Program Laborator2;
  Uses Crt,Graph; {Подключение к программе библиотек Crt и Graph}
  Const Step = 5; {Шаг изменения координат}
        Step2 = 10;
  Var
    GrDriver, GrMode : Integer;  {Тип и режим работы граф драйвера}
    X,Y              : Integer;  {Начальные координаты}
    Ch               : Char;
    Patch            : String;
 
{____________Рисуем картинку___________}
Procedure Image(X,Y:Integer);
  Begin
    {Рисуем фон}
    setbkcolor(11);
    setcolor(1);
    rectangle(1,1,getmaxX,getmaxY);
    line(1,1,getmaxX,getmaxY);
    line(640,1,1,480);
    {Рисуем корпус}
    setfillstyle(1,2);
    bar(x+130,y+300,x+470,y+230);
    arc(x+240,y+230,120,180,80);
    line(x+130,y+230,x+470,y+230);
    line(x+470,y+230,x+470,y+300);
    line(x+470,y+300,x+435,y+300);
    line(x+365,y+300,x+230,y+300);
    line(x+165,y+300,x+130,y+300);
    line(x+130,y+300,x+130,y+230);
 
    line(x+200,y+160,x+300,y+160);
    line(x+300,y+160,x+350,y+230);
    line(x+300,y+160,x+300,y+300);
    line(x+200,y+160,x+200,y+250);
    arc(x+200,y+310,10,90,60);
    {Рисуем колеса}
    setfillstyle(1,7);
    fillellipse(x+200,y+300,35,35);
    fillellipse(x+400,y+300,35,35);
    setfillstyle(1,6);
    fillellipse(x+200,y+300,30,30);
    fillellipse(x+400,y+300,30,30);
    setfillstyle(1,3);
    bar(x+190,y+290,x+210,y+310);
    bar(x+390,y+290,x+410,y+310);
    {Рисуем ручку}
    setfillstyle(1,12);
    bar(x+250,y+250,x+270,y+260);
    {Рисуем бак}
    bar(x+150,y+250,x+160,y+260);
    {Рисуем трубу}
    setfillstyle(1,8);
    bar(x+80,y+290,x+130,y+300);
    {Рисуем фары}
    setfillstyle(1,14);
    bar(x+125,y+250,x+130,y+270);
    bar(x+470,y+250,x+475,y+270);
    bar(x+430,y+250,x+445,y+255);
    {Рисуем антенну}
    line(x+410,y+180,x+410,y+230);
    circle(x+410,y+170,10);
 
  End;
 
 
{____Подключение драйвера для вывода картинки___}
 
BEGIN
  ClrScr;
  GrDriver :=detect;
  InitGraph(GrDriver, GrMode,'D:\tp7\bgi');
  If GraphResult=0 then
     begin
  X:=0; Y:=0; {}
  Image(X,Y); {}
  While TRUE do {}
    begin
      Ch := ReadKey;
      Case Ch of
        #27: begin CloseGraph; Halt(1) end; {}
 
        #75:begin
        X:= X-Step;
        if x<-460 then x:=560;
          Image(x,y);
        end; {Изменение координат х,у нажатием стрелок}
        #77:begin
        X:= X+Step;
        if x>560 then x:=-460;
          Image(x,y);
        end;
        #72:begin
        Y:= Y-Step;
        if y<-340 then y:=340;
          Image(x,y);
        end;
        #80:begin
        Y:= Y+Step;
        if y>340 then y:=-340;
          Image(x,y);
        end;
        #82:begin
        x:= x-Step2;
        if x<-460 then x:=560;
          Image(x,y);
        end;
        #83:begin
        x:= x+Step2;
        if x>540 then x:=-490;
          Image(x,y);
        end;
        #71:begin
        Y:= Y-Step2;
        if y<-320 then y:=320;
          Image(x,y);
        end;
        #79:begin
        Y:= Y+Step2;
        if y>320 then y:=-320;
          Image(x,y);
        end;
 
      end;
      ClearDevice;
      Image(X, Y);
      end;
 
     CloseGraph;
     end
     else writeln('Произошла ошибка графики');
END.

  //Это разрешения экран (есть и большие). Надо выбрать желаемое.
  gm:=m640x480;
  gm:=m800x600;
  gm:=m1024x768;
  gd:=D8bit;  //Это 8-битный цвет, т.е. всего 256 цветов
  UseLFB:=True; //Это самое главное - инициализация режима с LFB (Linear Frame Buffer, спецификация VESA)
  InitGraph(gd,gm,'');
  ......
  CloseGraph;