Завершить процедуру при вводе слова

uses graphabc;//создает командную строку и окно ввода
 
var
  d, p, w, s, m, t: real;
  h, g, l, k, q, b, c: String;
  a: integer;//переменные (Real:все числа. И дробные и целые с противоположными) и (String: слова и буквы). Про остальные можно прочитать в справке. А эти самые полезные.
 
begin//начало общей программы.
  MaximizeWindow; //разворачивает окно на полный экран.
  SetFontSize(15); //устанавливает размер шрифта.
  Window.Title := 'Упрощенная версия компьютера'; //создает или меняет  название окна ввода
       //setwindowsize (1280,720); //устанавливает разрешение 1280 на 720 точек, что равно HD разрешению.
  writeln('Запуск упрощенной версии компьютера.'); //заставляет появиться надпись в скобках.
  sleep(3000); //создает задержку.
  writeln('Запуск прошел успешно.'); //заставляет появиться надпись в скобках.
  sleep(1000); //создает задержку.
  writeln('Версия 0.3'); //заставляет появиться надпись в скобках.
  sleep(1000); //создает задержку.
  writeln('Введите имя пользователя.'); //заставляет появиться надпись в скобках.
  readln(h); //задает переменной  h введеное значение.
  writeln('Хорошо, ', h, ', создайте пароль.'); //заставляет появиться надпись в скобках.
  readln(g); //задает переменной  g введеное значение.
  clearwindow;
  c := ('Выбери программу: калькулятор(кальк), браузер, paint (ранний доступ), помощь, выход.');
  repeat//повторять.
    textOut(1, 1, c); //написать текст в определенном месте.
    readln(l); //задает переменной  l веденое значение.
    
       ///Калькулятор
    
    if (l = 'кальк') or (l = 'Кальк') then //если переменная  l равна слову в скобках то
    begin//создание программы внутри общей программы.
      clearwindow; //стереть  весь экран.
      Window.Title := 'Калькулятор'; //создает или меняет  название окна ввода
      sleep(1500); //создает задержку.
      textOut(1, 1, 'Запуск программы "калькулятор"'); //заставляет появиться надпись в скобках в определенном месте.
      sleep(1000); //создает задержку.
      textOut(1, 30, 'Запуск прошел успешно.'); //заставляет появиться надпись в скобках в определенном месте.
      sleep(1000); //создает задержку.
      textOut(1, 60, 'Версия 1.1'); //заставляет появиться надпись в скобках в определенном месте.
      sleep(1000); //создает задержку.
      textOut(1, 90, 'Введите два числа'); //заставляет появиться надпись в скобках в определенном месте.
      readln(d, p); //задает переменным  d и p веденое значение.
      textOut(1, 120, 'Что вам нужно с ними сделать? Напишите знак. (Примеры:+,-,*,/)'); //заставляет появиться надпись в скобках в определенном месте.
      readln(k); //задает переменной  k веденое значение.
      w := d * p; // данная переменная равна введеному выражению.
      s := d + p; // данная переменная равна введеному выражению.
      m := d - p; // данная переменная равна введеному выражению.
      t := d / p; // данная переменная равна введеному выражению.
      if (k = '+') then TextOut(1, 150, s);  //если знак это + то вывести на экран переменую s.
      if (k = '-') then TextOut(1, 150, m); //если знак это - то вывести на экран переменую m.
      if (k = '*') then TextOut(1, 150, w); //если знак это * то вывести на экран переменую w.
      if (k = '/') then TextOut(1, 150, t);  //если знак это + то вывести на экран переменую t.
      textOut(1, 180, 'Если хотите перейти в меню, нажмите "Enter".');  //заставляет появиться надпись в скобках.
      readln(b); //заставляет появиться надпись в скобках.
      ClearWindow; //стирает все рисунки.
      textOut(1, 1, c); //заставляет появиться надпись в скобках в определенном месте.
    end; //конец программы созданной внутри общей программы.
    
               ///Paint
    
    if (l = 'Paint') or (l = 'paint') then //если переменная  l равна слову в скобках то
    begin//создание программы внутри общей программы.
      clearwindow; //стереть  весь экран.
      Window.Title := 'Paint'; //создает или меняет  название окна ввода
      sleep(1500); //создает задержку.
      TextOut(1, 1, 'Запуск Paint'); //заставляет появиться надпись в скобках в определенном месте.
      sleep(1000); //создает задержку.
      TextOut(1, 30, 'Версия 0.2'); //заставляет появиться надпись в скобках в определенном месте.
      sleep(1000); //создает задержку.
      TextOut(1, 60, 'Запуск прошел успешно. Также напоминаем,что программа еще не готова.'); //заставляет появиться надпись в скобках в определенном месте.
      TextOut(1, 90, 'Какую вы хотите задать ширину кисти?'); //заставляет появиться надпись в скобках в определенном месте.
      readln(a); //задает переменной  a введеное значение.
      setpenwidth(a); //устанавливает ширину кисти равной переменной a.
      setpencolor(clred); //задает введеный цвет (сейчас красный).
      OnMouseDown := (x, y, mb) -> MoveTo(x, y); // устанавливает точку начала рисования при нажатии ЛКМ.
      OnMouseMove := (x, y, mb) -> if mb = 1 then LineTo(x, y); //рисует линию с точки начала рисования при нажатии ЛКМ.
      TextOut(1, 150, 'Если хотите закончить, нажмите "Enter".'); //заставляет появиться надпись в скобках в определенном месте.
      readln(q); //задает переменной  q введеное значение.
      if (q <> 'exit') or (q <> 'Exit') then ClearWindow; //если переменная q равна слову в скобках то делать все на следующей строчке. Иначе очистить все рисунки.
      textOut(1, 1, c); //заставляет появиться надпись в скобках в определенном месте.
    end; //заканчивает программу созданной внутри общей программы.
    
        ///Помощь
    
    if (l = 'помощь') or (l = 'Помощь') then //если переменная  l равна слову в скобках то
    begin//создание программы внутри общей программы.
      ClearWindow; //стирает все окно.
      Window.Title := 'Помощь'; //создает или меняет  название окна ввода.
      sleep(1500); //создает задержку.
      textOut(1, 1, 'Упрощенная версия компьютера.'); //заставляет появиться надпись в скобках в определенном месте.
      textOut(1, 30, 'Версия 0.3');  //заставляет появиться надпись в скобках в определенном месте.
      textOut(1, 60, 'Обратная Связь: [email]weareprogrammists@gmail.com[/email]'); //заставляет появиться надпись в скобках в определенном месте.
      textOut(1, 90, '©2019. Все права защищены.');  //заставляет появиться надпись в скобках в определенном месте.
      textOut(1, 120, 'Если хотите перейти в меню, нажмите "Enter".');  //заставляет появиться надпись в скобках в определенном месте.
      readln(b); //задает переменной  b введеное значение.
      if (b <> 'pascal') then ClearWindow; //если переменная b равна слову в скобках то стирает все рисунки.
      textOut(1, 1, c); //заставляет появиться надпись в скобках в определенном месте.
    end; //конец программы созданной внутри общей программы.
  until l = ('выход'); //до тех пора пока переменная l не будет равна слову в скобках.
  if (l = 'выход') then CloseWindow; //если переменная l является словом в скобках то закрыть программу.
end. //конец общей программы.