[klopsets]

Что здесь не так? Не получается вывести текст,хотя компиляция в порядке.
program Team;
const
speed=3;
var
btn_start,btn_exit,Get_btn:command;
image_m:array[0..12] of image;
image_bk:image;
i,k:integer;


procedure drawText(text: string; xPos, yPos: integer);
begin
repeat
setColor(255, 0, 0);
drawText('Вывод тестовой записи...', 0, 0);
repaint;
delay(1000);
until i=6;
end;

procedure animate_image;
begin

repeat
SetClip(0,0,200,200);
DrawImage(image_bk,0,0);
DrawImage(image_m[i],0,85);
repaint;
Delay(1000);
i:=i+1;
k:=k+2;
if i=12 then i:=0;
if k>150 then k:=-20;
get_btn:=GetClickedCommand;
until Get_btn=btn_exit;
end;
begin

i:=0;
k:=-20;

image_m[0]:=LoadImage('/image_1.png');
image_m[1]:=LoadImage('/image_2.png');
image_m[2]:=LoadImage('/image_3.png');
image_m[3]:=LoadImage('/image_4.png');
image_m[4]:=LoadImage('/image_5.png');
image_m[5]:=LoadImage('/image_6.png');
image_m[6]:=LoadImage('/image_7.png');
image_m[7]:=LoadImage('/image_8.png');
image_m[8]:=LoadImage('/image_9.png');
image_m[9]:=LoadImage('/image_10.png');
image_m[10]:=LoadImage('/image_11.png');
image_m[11]:=LoadImage('/image_12.png');
image_m[12]:=LoadImage('/image_13.png');

image_bk:=LoadImage('/image_bk.png');

btn_start:=CreateCommand('Start',CM_OK,1);
btn_exit:=CreateCommand('Exit',CM_EXIT,2);
AddCommand(btn_start);
AddCommand(btn_exit);
repeat

get_btn:=GetClickedCommand;
if get_btn=btn_start then animate_image;
until Get_btn=btn_exit;
end.