[ChaosAvenger]

чтобы не жать энтер например такое
var c:char;
...
begin
repeat
c:=readkey;
case c of
'1':begin
inc(r);
end;
'2':begin
inc(r);
end;
until ...;

это будет при нажатии 1 или 2 увеличивать переменную r