[Avatara]

Не соображу как оживить кнопку Назад. При нажатии Назад происходит выход из программы.

Program menu;

var
pt1,pt2,pt3,pt4,pt5,pt6,pt7,pt8,pt9,pt10,pt11,pt12,pt13,pt14: integer;
ppt1,ppt2,ppt3,ppt4,ppt5,ppt6,ppt7,ppt8,ppt9,ppt10,ppt11,ppt12,ppt13,ppt14: integer;
t1,t2,t3,t4,t5,t6,t7,t8,t9,t10,t11,t12,t13,t14: integer;
submenu1, submenu2: integer;
img: image;
show,click,exit,back: command;
Begin
	ShowMenu('Монеты РСФСР СССР 1921-2008', CH_IMPLICIT);
	img:=loadImage('/icon.png');
	pt1 := MenuAppendStringImage('  Новодел 1923-82', img);
	pt2 := MenuAppendStringImage('  Банк России 1997-2008', img);
	pt3 := MenuAppendStringImage('  Монеты РФ 1992-93', img);
	pt4 := MenuAppendStringImage('  Банк СССР 1991-92', img);
	pt5 := MenuAppendStringImage('  СССР рег чек 1987-91', img);
	pt6 := MenuAppendStringImage('  СССР рег чек 1976-86', img);
	pt7 := MenuAppendStringImage('  СССР рег чек 1965-75', img);
	pt8 := MenuAppendStringImage('  СССР рег чек 1953-64', img);
	pt9 := MenuAppendStringImage('  СССР рег чек 1942-52', img);
	pt10 := MenuAppendStringImage('  СССР рег чек 1932-41', img);
	pt11 := MenuAppendStringImage('  РСФСР и СССР рег чек 1921-31', img);
	pt12 := MenuAppendStringImage('  Наборы юбилейных монет', img);
	pt13 := MenuAppendStringImage('  Юбилейные монеты банка России', img);
	pt14 := MenuAppendStringImage('  Юбилейные монеты СССР', img);

  show:= CreateCommand('Выбор', CM_SCREEN, 1);
  addCommand(show);
  repaint;
  Repeat
  Delay(100);
  click:= getClickedCommand;
  until click=show;
  
  if menuGetSelectedIndex = pt1 then
  begin
  showmenu('Новодел 1923-82', CH_IMPLICIT);
  ppt1 := MenuAppendStringImage('  1923', img);
  ppt2 := MenuAppendStringImage('  1975', img);
  ppt3 := MenuAppendStringImage('  1976', img);
  ppt4 := MenuAppendStringImage('  1977', img);
  ppt5 := MenuAppendStringImage('  1978', img);
  ppt6 := MenuAppendStringImage('  1979', img);
  ppt7 := MenuAppendStringImage('  1980', img);
  ppt8 := MenuAppendStringImage('  1981', img);
  ppt9 := MenuAppendStringImage('  1982', img);
  show := CreateCommand('Выбор', CM_OK, 1);
  back := CreateCommand('Назад', CM_BACK, 1);
  addCommand(show);
  addCommand(back);
  Repaint;
  repeat
  delay(100);
  click := getClickedCommand;
  until click = show;
  end;
begin
if menuGetSelectedIndex = ppt1 then
begin
showmenu('', CH_IMPLICIT);
t1 := MenuAppendString('Год: 1923');
t2 := MenuAppendString('Номинал: Червонец');
t3 := MenuAppendString('Название: Сеятель');
t4 := MenuAppendString('Металл: Au900');
t5 := MenuAppendString('Вес: 8.6 гр');
t6 := MenuAppendString('Цена: 125000');
{showTextBox('Сеятель', 'Год: 1923 Номинал: Червонец Название: Сеятель || Металл: Au900 || Вес: 8.6 гр || Цена: 125000', 1000, TF_ANY);}
 show := CreateCommand('', CM_SCREEN, 0);
 addCommand(show);
 
 back := CreateCommand('Назад', CM_BACK, 1);
 addCommand(back);
 repeat
 delay(100);
 click := getClickedCommand;
 until click = back;
end;
end;
End.

Тоесть возврат к предыдущему меню