Мне необходимо разделить программу в паскале на части, по выполнении каждой части программа должна выводить сообщение типа: "Для продолжения программы нажмите Y, для завершения работы нажмите N"
Реально ли такое сделать в паскале, если да, то хотелось бы увидеть это на примере, никаких второстепенных функций, только операторы выполняющие мое требование.
ch:=ReadKey;
if ch=#код кнопки
then остальной код;
repeat
write('Continue? (Y/N) '); readln(C);
until c IN ['N','n',Y','y'];
if c IN ['N','n'] then halt; //остановка программы
...
var a:string;
...
repeat begin
writeln('Для продолжения программы нажмите Y, для завершения работы нажмите N');
readln(a) end until (a=Y) or (a=N);
if a=Y then begin
{ Продолжается работа и т. д. и т. п. }
end;
end.
{"Иначе" - "Else" ставить не обязательно, так как в любом случае если N, то прога сама выключится}
⇢