Как в Pascal ABC на модуле Graph ABC провести вертикальную ось симметрии.

Решение на Pascal ABC (код своей программы необходимо выкладывать, чтобы могли подсказать и определить проблемный участок кода)

uses graphabc;
var h, k, i, sy, h1, w1: integer;
angle: real;
begin
h1:=900;
w1:=800; {влияет на линию симметрии}
setwindowsize (w1,h1); {размеры формы}
setwindowtitle ('Филин'); {название формы}
setpencolor (clRed); {цвет кисти}
setpenwidth (1); {толщина кисти}
sy:=trunc(w1/2); {линии симметрии на расстоянии w1 /2 = 800 / 2 = 400, пробуй менять "w1" на другое }
for i:=1 to 2 do
begin
if i=1 then k:=1
else k:=-1;
moveto (sy+k*350, 900);
lineto (sy+k*300, 800);
lineto (sy+k*250, 800);
lineto (sy+k*250, 900);
lineto (sy+k*200, 800);
lineto (sy+k*200, 900);
lineto (sy+k*150, 800);
lineto (sy+k*200, 750);
lineto (sy+k*250, 800);
moveto (sy, 800);
lineto (sy+k*150, 800);
lineto (sy+k*150, 700);
lineto (sy+k*200, 650);
lineto (sy+k*300, 700);
lineto (sy+k*250, 600);
lineto (sy+k*350, 650);
lineto (sy+k*300, 550);
lineto (sy+k*250, 500);
lineto (sy+k*200, 400);
moveto (sy+k*150, 700);
lineto (sy+k*100, 650);
lineto (sy+k*100, 600);
moveto (sy, 650);
lineto (sy+k*50, 550);
lineto (sy+k*100, 600);
lineto (sy+k*100, 500);
lineto (sy+k*150, 550);
lineto (sy+k*150, 450);
moveto (sy, 450);
lineto (sy+k*150, 450);
lineto (sy+k*250, 350);
lineto (sy+k*250, 200);
lineto (sy+k*200, 150);
lineto (sy, 250);
lineto (sy+k*200, 50);
lineto (sy+k*200, 100);
lineto (sy+k*300, 50);
lineto (sy+k*200, 150);
moveto (sy, 50);
lineto (sy+k*50, 50);
lineto (sy+k*150, 100);
moveto (sy, 450);
lineto (sy+k*50, 350);
lineto (sy, 350);
circle (sy+k*150, 300, 50);
end;
end.

так ты ж ничего толком и не объяснил. для любого языка ось - всего лишь линия, где ее проведешь, там она и будет.