Pascal - pare pytań

PYTANIA DOTYCZĄ PASCALA :

1.Jak zrobić aby w progrmie można było wpisać tylko 1 znak np:
program ttt;
var
a:byte;
begin
writeln('Wpisz tekst :');
readln(a); // tutaj gdy się da run żeby można było wpisać tylko jeden znak
end.

2.Jak zrobić żeby coś się stało obojętne np: writeln('hello') gdy w programie wpiszemy 1 lub 2 i damy enter.

3.Jak zrobić aby uruchomił się jakiś plik exe ale z tego dysku na którym uruchomiony jest program tylko tamten plik znajduje się w folderze program/program.exe

1. Skorzystaj z ReadKey.
2. If + ReadKey
3. Exec + F1

pierwsza możliwość :

repeat
readln(a)
case a of
1:write('hellow');
2:hatl;
end;
until a ='q';

możliwość druda
repeat
key:=readkey; //zadeklaruj key jako char
case key of
#numer_klaiwsza :
write('hellow world');
#numer_klaiwsza :
write('hellow);
until key='q';

A czy wie ktoś jaki symbol ma 1 i 2

PO ZATYM UMNIE SĄ JAKIEŚ błędy Z until a='q';

world-tom - <font size="12"><font color="red">Pisz konkretne tematy!!!!</span></span>

A czy wie ktoś jaki symbol ma 1 i 2

PO ZATYM UMNIE SĄ JAKIEŚ błędy Z until a='q';

Witam!

Kody klawiszy:
0..9 = 48..57

Jeśli potrzebne są ci inne to ściągnij sobie programik z serwisu ASCi czyli podający kody klawiszy.

Jednak nie wiem czy w Twoim przypadku nie łatwiej będzie używać Char
czyli q:char;
if keypressed then
begin
q:=readkey;
if q='1' then co chcesz zrobić np.(writeln(q));
end;
[cya]