Возвращение из процедуры-события к основной программе при выполнении определённого условия

program yourmumisfemboyfox;
uses graphabc;
 var
    k0,k1,protv,i,tempx,tempy,point:integer;
    uravn,ur1,ur2,tempotv1,tempotv2: string;
    prim1: string;
    a: array [1..4] of real;
    procedure proverkaotveta(i: integer);   // проверка данного ответа 
    begin
            if (i=protv) then begin
                textout (600, 100, 'gg ez!                   ');
                point:=1;
            end
       else if (point <> 1)then textout (600,100,'uncorrect!');
       end;
       
       
    procedure num(key: integer); 
    begin 
        if (key=VK_NumPad1) then proverkaotveta(1)
   else if (key=VK_NumPad2) then proverkaotveta(2)
   else if (key=VK_NumPad3) then proverkaotveta(3)
   else if (key=VK_NumPad4) then proverkaotveta(4);
      end;
      
      
    begin 
    randomize;
    window.Maximize();
    setfontsize(40);
    setfontname('TimesNewRoman');
    k0:=random(50);     // генерирование ур-я и вывод на экран
    k1:=random(50);
    str(k0,ur1);    
    str(k1,ur2);     
    textout(100,100,concat(ur2,'*x+',ur1,'=0'));
    protv:=random(4)+1;    // ввод правильного ответа в одно из четырёх возможных вариантов
    a[protv]:=-k0/k1;
    a[protv]:=int(a[protv])+int(frac(a[protv])*100)/100;
    i:=1;
    repeat       // создание остальных трёх, неправильных ответов
    begin
      if (i<>protv) then a[i]:=random(5)+random(100)/100;
      i:=i+1;
      end;
      until i>4;
      setfontsize(25);
      tempx:=50;
      tempy:=200;
     for i:=1 to 4 do   // вывод на экран каждого из ответов
     begin
     str(i,tempotv1);
     str(a[i],tempotv2);
     textout(tempx,tempy,concat(tempotv1,,tempotv2));
     tempx:=tempx+200;
     end;
     OnKeyDown:=num; 
    end.

uses GraphABC;
 
var invariant := 0;
var number := 0;
 
procedure Show;
begin
  Window.Clear;
  case invariant of
    0 : begin
          DrawTextCentered(Window.Center.X, Window.Center.Y,
          'Нажмите 1 для ввода числа' + NewLine + 'или 0 для завершения работы');
        end;
    1 : begin
          DrawTextCentered(Window.Center.X, Window.Center.Y,
          'Введено ' + number + NewLine*2 + 'ESC для выхода');
        end;
  end;
end;
 
procedure keyDown(key : Integer);
begin
  case invariant of
    0 : case key of
          VK_NumPad0 : Window.Close;
          VK_NumPad1 : (invariant, number) := (1, 0);
        end;
    1 : case key of
          VK_NumPad0..VK_NumPad9 : try
                                     number *= 10;
                                     number += (key - 96);
                                   except
                                   end;
          VK_Escape : invariant := 0;
        end;
  end;
  Show;
end;
 
begin
  Show;
  onKeyDown := keyDown;
end.