проблема ТПаскаль модуль GRAPH. как привизать точку к определенной клавиши

[cergey82]

задиние
рисуем точку которая при нажатии клавиши W начинает движение вверх
точку нарисовал
движение задал спомощью процедуры VERH
а как привизать ее к лавиши W незнаю подскажите

[Serge_Bliznykov]

примерно так:

uses
   Graph, Crt;


....

  repeat
    key:=readkey;
      case key of
       'W': VERH;
       'S': VNIZ;
      end;
  until key=#27;
  CloseGraph;