Задача По Паскалю!

[capta1n]

на обеих сразу и еще на дудочке подыгрываю себе )))))) можно сделать насчет выхода конечно - просто вот здесь:

ClrScr;
WriteLn('1.Enter Dan.');
WriteLn('2.Open Dan.');
WriteLn('3.Save Dan.');
Key:=ReadKey;

Добавить Writeln ('Esc.Выход из программы.');

Выглядет это так:

begin
Zap_i:=0;
Ex:=false;
Repeat
ClrScr;
WriteLn('1.Enter Dan.');
WriteLn('2.Open Dan.');
WriteLn('3.Save Dan.');
Writeln ('Esc.Выход из программы.');
Key:=ReadKey;
case Ord(Key) of
49:Enter_Dan;
50:Open_Dan;
51:Save_Dan;
27:Exit;
end;
until Ex=true;
end.

[capta1n]

точно так же можно задать условия в любой процедуре. "Назад" для процедуры то же самое, что и выход из нее - точно так же можно применить ReadKey и прочитать символ с клавиатуры "Ну допустим как у тебя сделано в главной программе: ESC отвечает за выход" - точно так же можно сделать в каждой процедуре

[Sergeo_89]

Ну а как Назад из Опен, Сайф и Ентер Сделать?

[Sergeo_89]

А все понял Спасибо))сичас тебе Благодарность оставим

[capta1n]

рад был помочь