Здравствуйте. Помогите сделать рисунок в Pascal Abc.

uses GraphABC;procedure ms(x, y, z: integer);begin window.Title := string.Format('({0}; {1})', x, y);end;begin setbrushcolor(clGray); circle(150, 200, 20); GRaphabc.OnMouseMove := ms; line(128,214,67,214); line(66,194,125,196); line(126,204,67,202); moveto(131,184);

lineto(69,166); lineto(66,194); lineto(67,202); lineto(67,214); lineto(128,214); lineto(125,196); lineto(131, 184); graphabc.FloodFill(100, 210, cllightgray); graphabc.FloodFill(70, 190, cllightgray); graphabc.FloodFill(98, 200, cllightgray); line(230,215,230,127); ellipse(260,100,200,176); floodfill(230,133,clwhite);

line(234,173,213,108); line(235,100,259,146); line(247,107,202,125); line(204,152,258,148);end.

Спасибо, но ругается на строку:window.Title := string.Format('({0}; {1})', x, y);

Ой, да, уберите всю процедуруprocedure ms(x, y, z: integer);beginwindow.Title := string.Format('({0}; {1})', x, y);end;и строку GRaphabc.OnMouseMove := ms;У меня не ругалось, но это тут лишнее, для дебага делал

В таком случае, вот:)