begin
ch:=readkey;
case ch of
chr(49):
begin
clrscr;
create_new_base_file;
end;
chr(50):
begin
clrscr;
output_all_records;
end;
chr(51):
begin
clrscr;
otcet;
end;
chr(52):begin
clrscr;
add_records_in_the_end;
end;
chr(53):ch:=chr(27);
end;
writeln;
writeln('---------------------------Executed. <ENTER>----------------');
readln;
clrscr;
end;
until (ch=chr(27));
end.
Пример неправильного форматирования..
begin
ch:=readkey;
case ch of
chr(49): begin clrscr; create_new_base_file; end;
chr(50): begin clrscr; output_all_records; end;
chr(51): begin clrscr; otcet; end;
chr(52):begin clrscr; add_records_in_the_end; end;
chr(53): ch:=chr(27);
end;
writeln;
writeln('---------------------------Executed. <ENTER>----------------');
readln;
clrscr;
end; <---- А к чему теперь этот энд ?
until (ch=chr(27)); <--- де таки репит ?
end.
repeat
Flag:=true;
ch:=ReadKey;
case ch of
'1': ...
'2': ...
...
else Flag:=false
end
until Flag;