12121, выход из программы и выход из процедуры это ОЧЕНЬ РАЗНЫЕ ПОНЯТИЯ.
Sneijder, если я правильно понял тебя, то предлагаю сделать дополнительную переменную например типа boolean. Будет true будет показывать картинку, false - не будет показывать картинку:
Code
procedure progi;
begin
drawimage(help,0,20);
end;
procedure menup;
begin
drawImage(menu,0,0);
if(x<40)and(y<20)and(GetKeyPressed=KE_KEY5) then pokaz:=true
if pokaz=true then progi
end;
у этого кода есть свои минусы и плюсы,но это так, коротенько))) я бы сделал немного сложнее:
Code
procedure progi;
var
exit:boolean;
key_clicked:integer;
begin
repeat
if key_clicked=KE_POUND then exit:=true
key_clicked:=GetKeyClicked;
drawimage(help,0,20);
repaint;
delay(1);
until exit=true;
pokaz:=false;
end;
procedure menup;
begin
drawImage(menu,0,0);
if(x<40)and(y<20)and(GetKeyPressed=KE_KEY5) then pokaz:=true
if pokaz=true then progi
end;
