Программа - "машинка" - управление движением с помощью клавиш

uses crt,graphABC;
 var x0,y0,w,h,x,y:integer;
 procedure car(z,d:integer);
 begin
 SetBrushColor(clBlack);
 roundrect(170,180,200,200,30,10);
 roundrect(220,180,250,200,30,10);
 roundrect(220,260,250,280,30,10);
 roundrect(170,260,200,280,30,10);
 SetBrushColor(clBlue);
 ellipse(190,160,230,300);
 rectangle(180,290,240,310);
 SetBrushColor(clNavy);
 ellipse(200,220,220,270);
 end;
 procedure Move(x,y:integer);
 begin
 car(x,y);
 end;
 begin
 HideCursor; 
 w:=windowwidth;
 h:=windowheight;
 x0:=w div 2;
 y0:=h div 2;
 x:=x0;y:=y0;
 Move(x0,y0);
 x:=x0;
 y:=y0;
 repeat
 begin
 case c of
 begin 
 Move(x,y);
 y:=y-5;
 Move(x,y);
 end;
 begin 
 Move(x,y);
 x:=x+5;
 Move(x,y);
 end;
 begin 
 delay(50);
 Move(x,y);
 y:=y+5;
 Move(x,y);
 end;
 begin 
 delay(50);
 Move(x,y);
 x:=x-5;
 Move(x,y);
 end;
 end;
 end;
 until;
 end.

 uses graphABC;
 var x,y:integer;
    p,pc:picture;
 procedure car;
 begin
   pc:=Picture.Create(82,142);
   pc.Clear;
   p:=Picture.Create(82,142);
   SetBrushColor(clBlack);
   p.Clear;
   p.roundrect(1,11,31,31,30,10);
   p.roundrect(51,11,81,31,30,10);
   p.roundrect(51,91,81,111,30,10);
   p.roundrect(1,91,31,111,30,10);
   SetBrushColor(clBlue);
   p.ellipse(21,1,61,131);
   p.rectangle(11,121,71,141);
   SetBrushColor(clNavy);
   p.ellipse(31,51,51,101);
 end;
 
procedure MoveCar(Key: Integer);
begin
  if Key = VK_Escape then halt; 
  LockDrawing;
    pc.draw(x,y);
    case Key of
      VK_Left: if x>5 then x:=x-5;
      VK_Right: if x<WindowWidth-p.Width-5 then x:=x+5;
      VK_Up:if y>5 then y:=y-5;
      VK_Down:if y<WindowHeight-p.Height-5 then y:=y+5;
    end;
    p.Draw(x,y);
    UnlockDrawing;
end;
 begin
   SetWindowSize(640,480);
   car;
   x:=WindowWidth div 2-p.Width div 2;
   y:=Window.Height div 2-p.Height div 2;
   p.Draw(x,y);
   OnKeyDown:=MoveCar;
 end.