Одновременная работа двух процессов Опции

[Bokul]

Как в Паскале реализовать работу сразу двух процессов. Тоесть, например,
одновременно программа выводит идущие часы на екран и ожидает нажатие
кнопки, если кнопка была нажата то программа выполняет какое-то действие,
и снова ожидает нажатие кнопки.

[volvo]

To: Bokul

repeat
  show_clock;
  if keypressed then begin
    ch := readkey;
    case ch of
      ... { разбирай, какая клавиша нажата }
    end;
  end;
until ch = #27; { escape - выход }