[Suicide]

Вот написал программку, которая должна выводить расписание моей группы, но почему-то drawText не работает? Не могли бы ли Вы, пожалуйста, подсказать, что у меня не так?
Переменная nn - это день номер недели(первая или вторая), по которой учимся. p1 и p2 - подгруппа(тк для каждой отдельно расписание по некоторым дням.

program NewProject;
var 
    senya, zavtra,p11,p22,i,k,nn : integer; 
    play, clicked : command; 
s,z,p1,p2:boolean;
mm:array[2..7] of integer;   
  begin
s:= false;
z:= false;
p1:=false;
p2:=false;
 mm[2]:=28;
 mm[3] := 31;
 mm[4] := 30;
 mm[5] := 31;
 mm[6] := 30;
 mm[7] := 31;
        showMenu('1 или 2 подгруппа?', CH_IMPLICIT); 
     
    p11 := menuAppendString('1'); 
    p22 := menuAppendString('2'); 

    play := createCommand('?', CM_SCREEN, 1); 
    addCommand(play); 

    repeat 
      delay(100); 
      clicked := getClickedCommand; 
    until clicked = play; 
    if menuGetSelectedIndex = p11 then p1 := true;

    if menuGetSelectedIndex = p11 then p2:=true;
 clearForm;
  
i := getMonth(getCurrentTime);
k:=0;
while i<>2 do
begin
k := k + mm[i];
i := i - 1;
end;
k := k + getDay(getCurrentTime)-1;
if odd(trunc(k/7)) then nn := 1;
if not odd(trunc(k/7)) then nn := 2;
showCanvas;     
   setColor(0, 0, 255);
if getWeekDay(getCurrentTime) = 2 then
begin
if nn=1 then
begin
drawText('АИС', 0, 0);
drawText('БЖ', 0, 10);
drawText('КС', 0, 20);
drawText('ПСИХОЛОГИЯ', 0, 30);
end;
if nn=2 then
begin
drawText('ФИЛОСОФИЯ', 0, 0);
drawText('БЖ', 0, 10);
drawText('КС', 0, 20);
end;
end;

if getWeekDay(getCurrentTime) = 3 then
begin
if (nn =1) and p1 then
begin
drawText('КС', 0, 0);
drawText('ПСИХОЛОГИЯ', 0, 10);
end; 
if (nn =2) and p1 then
begin
drawText('----------', 0, 0);
drawText('МЕТРОЛОГИЯ', 0, 10);
end; 
if (nn =1) and p2 then
begin
drawText('---------', 0, 0);
drawText('ПСИХОЛОГИЯ', 0, 10);
end; 
if (nn =2) and p2 then
begin
drawText('КС', 0, 0);
drawText('МЕТРОЛОГИЯ', 0, 10);
end; 
end;

if getWeekDay(getCurrentTime) = 4 then
begin
if nn = 1 then drawText('ФИЛОСОФИЯ', 0, 0);
if nn = 2 then drawText('ПСИХОЛОГИЯ', 0, 0);
drawText('ПО АИС', 0, 10);
drawText('ФИЗРА', 0, 20);
drawText('АСУП', 0, 30);   
end;

if getWeekDay(getCurrentTime) = 5 then
begin
if (nn =1) and p1 then
begin
drawText('АНГЛ', 0, 0);
drawText('КС', 0, 10);
drawText('РЭИС', 0, 20);
end; 
if (nn =2) and p1 then
begin
drawText('АНГЛ', 0, 0);
drawText('АИС', 0, 10);
drawText('ФИЛОСОФИЯ', 0, 20);
drawText('КС', 0, 30);
end; 
if (nn =1) and p2 then
begin
drawText('-------------', 0, 0);
drawText('КС', 0, 10);
drawText('РЭИС', 0, 20);
drawText('КС', 0, 30);
end; 
if (nn =2) and p2 then
begin
drawText('КС', 0, 0);
drawText('АИС', 0, 10);
drawText('ФИЛОСОФИЯ', 0, 20);
end; 

end;

if getWeekDay(getCurrentTime) = 6 then
begin
if (nn =1) and p1 then
begin
drawText('АСУП', 0, 0);
drawText('АСУП', 0, 10);
drawText('РЭИС', 0, 20);
end; 
if (nn =2) and p1 then
begin
drawText('АСУП', 0, 0);
drawText('ПСИХОЛОГИЯ', 0, 10);
drawText('РЭИС', 0, 20);
end; 
if (nn =1) and p2 then
begin
drawText('АНГЛ', 0, 0);
drawText('АСУП', 0, 10);
drawText('АСУП', 0, 20);
drawText('РЭИС', 0, 30);
end; 
if (nn =2) and p2 then
begin
drawText('АНГЛ', 0, 0);
drawText('ПСИХОЛОГИЯ', 0, 10);
drawText('АСУП', 0, 20);
drawText('РЭИС', 0, 20);
end; 

end;


if getWeekDay(getCurrentTime) = 7 then
begin
drawText('ФИЗКУЛЬТУРА', 0, 0);
drawText('МЕТРОЛОГИЯ', 0, 10);
end;
repaint; 
delay(4333);


end.