[BASSON XVI]

Вот накатал проблему не знаю даже в чом дело то! пока её не устраню далше продвинуться не смогу!!!

program Basson
var 
ok, exit, menu, bac, clecked: command;
procedure 1
begin
menu := createCommnad('MENU', CM_OK, 0);
bac := createCommnad('EXIT', CM_BACK, 1);
addCommnad(menu);
addCommand(bac);
   repaint;
   
      repeat 
     clicked := getClickedCommand; 
   until clicked <> emptyCommand;
   if clicked = menu then 2; // ВОТ ту то оно и пишет что нет таких параметров процедур 
   if clicked = exit then 3; // и переменных в чом дело то???? если их убираю ошибок нет !
end;
prosedure 2
begin
end;
procedure 3
begin
end;
begin 
   Ok := createCommand('Поехали', CM_OK, 0);
   Exit := createCommand('Выход', CM_CANCEL, 1);
   addCommand(ExitCmd); 
   addCommand(OkCmd);
   repaint;
   
      repeat 
     clicked := getClickedCommand; 
   until clicked <> emptyCommand;
   if clicked = Ok then 1;
   if clicked = exit then 3;  
end.

Простите за ошибки если чтот то не так подправтепесал в попыхах!