мидл паскаль, спрайты

const
   SPEED = 1; // Скорость движения танка
 
 var
   i    : Integer;
 // Внешний вид танка при различных углах поворота
   tank : array [0..3] of image;
   dir  : Integer; // направление
   X, Y : Integer; // позиция
   key  : Integer;
   bf11 : image;        
   
     
procedure animate_image;
begin
for i:=0 to 3 do
tank[i] := LoadImage('/tank' + chr(48 + i) + '.png');
   dir := 0;  
   X   := 32; 
   Y   := 32; end;
begin
repeat
 DrawImage(bf11,0,0); 
 DrawImage(tank[dir], X, Y);
 repaint; 
 Delay(20); 
 key := GetKeyPressed;
 if key = KE_KEY6 then
     begin
       dir := 0;
       X   := X + SPEED;
     end else
       if key = KE_KEY8 then
       begin
         dir := 1;
         Y   := Y + SPEED;
       end else
         if key = KE_KEY4 then
         begin
           dir := 2;
           X   := X - SPEED;
         end else
           if key = KE_KEY2 then
           begin
             dir := 3;
             Y   := Y - SPEED;
           end;                             
 
 until GetKeyClicked = KE_KEY0; // Закрыть приложение при нажатии "0" 
end.