отслеживание нажатия клавиш в цикле, не знаю как Опции

[muzzy]

вопрос раз: как это сделать, как отследить нажатие клавиши в цикле??

[klem4]

Вообще-то не будет.

Иногда лучше жевать, чем говорить (с)

uses crt;
var
  i: Integer;
  ch: char;

begin
  for i := 1 to 1000 do begin

    writeln(i);

    ch := #0;
    while keypressed do
      ch := readkey;

    if ch in ['a'..'z'] then begin
      writeln(ch);
      readln;
    end;
  end;

end.

[andriano]

Иногда лучше жевать, чем говорить (с)

Вот именно.
А еще иногда лучше не только жевать, но еще и читать вопросы.

без нажатия клавиши этот цикл работать будет??

тот цикл while, который был вв 2-м посте, действительно, без нажатия клавиши работать не будет. Ни одного раза. А никакого другого цикла в сообщении нет.