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.
А как сделать чтобы символы кроме тех что есть в Case не выводились?
Чтобы выборка производилась по тем символам которые я указал