Помогите Исправить

  • Автор темы kot070
  • Дата начала
K

kot070

#1
Вообщем программа такая что если вводим символы a * или цифры то это правда, если остальные символы то ложь и программа должна заканчиваться при нажатии клавиши делете.
Моя беда в том что я не могу сделать чтобы программа закрывалась, при нажатии делете ничего не происходит и еще не могу добавить в ложь заглавные буквы от A до Z
program tek;
uses crt;
var
l:char;
begin clrscr;
while true do
begin
l:=readkey;
case l of 'a', '*', '0'..'9' :
begin
writeln ('l=true', l );
end;
'b'..'z':
writeln ('l=false', l);
#0:
begin
l:=readkey;
if l=#46 then
break;
end;
end;
end;
end.


Добавлено: Извиняюсь за дубль темы, интернет немного залагал
 
K

kot070

#4
а можно как нибудь сделать через 2 переменные чтобы одна ловила 0 а вторая ловила 46 и выходил конец по клавиши делете?