Устранить ошибки в коде.

uses crt,graphabc,timers;
var t,x0,y0,w,h,x,y:integer; c:char;
procedure Ganim;
begin
write('текст');
end;
procedure Move(x,y,c:integer); //рисование
begin
setpencolor(c);
Rectangle(x+350,y+700,x+700,y+750); // Зад
Rectangle(x+350,y+715,x+390,y+735); //Левая фара
Rectangle(x+700,y+715,x+660,y+735); //Правая фара
Rectangle(x+355,y+750,x+390,y+780); //Левое колесо
Rectangle(x+695,y+750,x+660,y+780); //Правое колесо
line(x+350,y+700,x+400,y+660); lineto(x+415,y+600); lineto(x+625,y+600);
lineto(x+640,y+660); lineto(x+700,y+700); line(x+640,y+660,x+400,y+660);
end;
begin
t:=CreateTimer(400,Ganim);
SetWindowSize(1024,788);
//HideCursor; //уберем курсор
x0:=1 div 2;
y0:=1 div 2;
Move(x0,y0,clblack);//рисуем
floodfill(x+640,y+720,clblue); floodfill(x+370,y+720,clred); floodfill(x+680,y+720,clred);
floodfill(x+360,y+760,clblack); floodfill(x+690,y+755,clblack); //floodfill(x+640,y+690,clblue)
repeat
if keypressed then
 begin
  c:=readkey;
  case c of
  #75:begin //вправо
      Move(x,y,clwhite);
      x:=x+20;
      Move(x,y,clblack);
      floodfill(x+640,y+720,clblue); floodfill(x+370,y+720,clred); floodfill(x+680,y+720,clred);
      floodfill(x+360,y+760,clblack); floodfill(x+690,y+755,clblack); //floodfill(x+640,y+690,clblue)
      end;
  #77:begin //влево
      //delay(50);
      Move(x,y,clwhite);
      x:=x-20;
      Move(x,y,clblack);
      floodfill(x+640,y+720,clblue); floodfill(x+370,y+720,clred); floodfill(x+680,y+720,clred);
      floodfill(x+360,y+760,clblack); floodfill(x+690,y+755,clblack); //floodfill(x+640,y+690,clblue)
     end;
  end;
 end;
until c=#27;
end.