PASCAL - работа с мышью

[Newnata]

напишите, пожалуйста, программу где курсор мыши играет роль карандаша.

[Stilet]

Жаль что я не могу тебе написать точный код работы с мышой в паскале, ибо убегаю домой, скажу только одно есть два пути: воспользоваться юнитом mouse.pas или рулить прерыванием 33H примерно так:

uses graph,dos,crt;
var   r:registers;
  grDriver: Integer;
  grMode: Integer;
  ErrCode: Integer;

 FUNCTION push_mouse:integer;
BEGIN R.AX:=5; r.bx:=0;INTR($33,r);push_mouse:=R.AX;END;

 procedure _mouse;
BEGIN
 R.AX:=0; INTR($33,r);
 R.AX:=1; INTR($33,r);
END;

begin
  grDriver := Detect;
  InitGraph(grDriver, grMode,'');
  ErrCode := GraphResult;
  if ErrCode = grOk then
  begin  { Do graphics }
    Line(0, 0, GetMaxX, GetMaxY);
    Readln;
    CloseGraph;
  end
  else
    Writeln('Graphics error:', GraphErrorMsg(ErrCode));
_mouse;
repeat
 if push_mouse=1 then begin
  /// А тут получаем координаты мышыи и рисуем в них точку
  Как? почитай про прерывания 33H.
 end;
until keypressed;
Closegraph;
end.

[ArtGrek]

даже модуль показано как делать
http://pascal.proweb.kz/index.php?page=33