Помогите написать апрель пятница линиями с помощью graphabc

Program P1;
uses GraphABC;
begin
(*Апрель*)
(*А*)
Line (20, 60, 40, 20);
Line (40, 20, 60, 60);
Line (30, 40, 50, 40);
(*П*)
Line (80, 20, 80, 60);
Line (110, 20, 110, 60);
Line (80, 20, 110, 20);
(*Р*)
Line (130, 20, 130, 60);
Line (130, 20, 150, 20);
Line (150, 20, 150, 40);
Line (130, 40, 150, 40);
(*Е*)
Line (170, 20, 170, 60);
Line (170, 20, 190, 20);
Line (170, 40, 190, 40);
Line (170, 60, 190, 60);
(*Л*)
Line (210, 60, 220, 60);
Line (220, 60, 230, 20);
Line (230, 20, 240, 20);
Line (240, 20, 240, 60);
(*Ь*)
Line (260, 20, 260, 60);
Line (260, 40, 280, 40);
Line (280, 40, 280, 60);
Line (260, 60, 280, 60);
(*/*)
Line (300, 60, 320, 20);
(*Пятница*)
(*П*)
Line (340, 20, 340, 60);
Line (340, 20, 360, 20);
Line (360, 20, 360, 60);
(*Я*)
Line (380, 20, 380, 40);
Line (380, 20, 400, 20);
Line (400, 20, 400, 60);
Line (380, 40, 400, 40);
Line (380, 60, 400, 40);
(*Т*)
Line (420, 20, 440, 20);
Line (430, 20, 430, 60);
(*Н*)
Line (460, 20, 460, 60);
Line (460, 40, 480, 40);
Line (480, 20, 480, 60);
(*И*)
Line (500, 20, 500, 60);
Line (500, 60, 520, 20);
Line (520, 20, 520, 60);
(*Ц*)
Line (540, 20, 540, 60);
Line (540, 60, 570, 60);
Line (560, 20, 560, 60);
Line (570, 60, 570, 70);
(*А*)
Line (590, 60, 610, 20);
Line (610, 20, 630, 60);
Line (600, 40, 620, 40);
end.