Kolejny problem z serii pt. pętla.
Ta pętla ma wykonywać się nieustannie (wiele powtórzeń per sekunda) a tego nie robi (czeka na wcisnięcie "ESC") podczas gdy "ESC" ma jedynie przerwać pętle (zamknąć program).
repeat
{repeat until KeyPressed;}
Ch := ReadKey;
if Ch = #27 then
begin
halt(0);
end;
licznik:=licznik+1;
licznik:=1;
write(licznik);
until licznik<1;
end.
Może od tego są jakieś inne funkcje ale nie wiem.