Графика. Обработка кодов клавиш

[Кутяшка]

Помогите пожалуйста вот с такой вот задачкой, которую нужно сделать в паскале ABC.
"На экране появляются точки произвольного цвета в произвольном месте. При нажатии клавиши «V» картинка «замирает», по нажатию клавиши «W» выставление точек продолжается, по нажатию «К» * экран очищается, процесс выставления точек начинается вновь. Выход по Esc."

[ZX Spectrum-128]

А что вызывает затруднения? Пример обработки кодов клавиш есть в online help.

[Кутяшка]

Про кнопки я уже прочитала. Непонятно как сделать "На экране появляются точки произвольного цвета в произвольном месте". А дальше я по ходу разберусь.

[Serge_Bliznykov]

Сообщение от Кутяшка

Непонятно как сделать "На экране появляются точки произвольного цвета в произвольном месте". А дальше я по ходу разберусь.

вариант 1.
реально точки:

uses CRT, GraphABC;

var k : char;
 x, y : integer;

begin
  Randomize;
  SetWindowSize(600,480);
  k := #0;
  repeat
    x := Random( WindowWidth )+1;
    y := Random( WindowHeight )+1;

    SetPixel(x,y,clRandom);

    if KeyPressed then k := ReadKey();
    Delay(200);
  until k= #27;

  ClearWindow;
end.

вариант 2.
маленькие кружочки:

uses CRT, GraphABC;

var k : char;
 x, y : integer;

begin
  Randomize;
  SetWindowSize(600,480);
  k := #0;
  repeat
    x := Random( WindowWidth )+1;
    y := Random( WindowHeight )+1;

    {SetPixel(x,y,clRandom); }
    // если точки на вид слишком маленькие, то можно выводить кружочки
    SetPenColor(clRandom);
    SetBrushColor(penColor);
    Circle(x,y,3);
    if KeyPressed then begin
       k := ReadKey();
       if k='k' then ClearWindow;
    end;
    Delay(200);
  until k= #27;

  ClearWindow;
end.

[Кутяшка]

Огромное спасибо)))))))