Ai biết viết chương trình con để vẽ hình trong pascal không ạ. Càng nhiều hình càng tốt ạ

Program FNG;
Uses crt;

Procedure hinhtamgiac;
Var i,j: longint;
Begin
        For i:=1 to 5 do
        Begin
                For j:=1 to i do
                        Write('*');
                Writeln;
        End;
End;

Procedure hinhchunhat;
Var i,j: longint;
Begin
        For i:=1 to 5 do
        Begin
                For j:=1 to 7 do
                        Write('*');
                Writeln;
        End;
End;

Procedure hinhvuong;
Var i,j: longint;
Begin
        For i:=1 to 5 do
        Begin
                For j:=1 to 5 do
                        Write('*');
                Writeln;
        End;
End;

Begin
        Clrscr;
        hinhtamgiac;
        Writeln;
        hinhvuong;
        Writeln;
        hinhchunhat;
        Readln
End.

* Chương trình 1: Vẽ các đường thẳng bất kì.
PROGRAM DUONG_THANG;
     USES Crt, Graph;
     VAR Gd, Gm: integer;
      BEGIN
           Gd:= Detect;
           Initgraph (Gd, Gm,' ');
           Randomize;
           REPEAT
                 Line (Tandom(200), Random(200), Random(200), Random(200));
           UNTIL KeyPressed;
           Readln;
           Closegraph;
END.

* Chương trình 2: Vẽ các đường gấp khúc bất kì.
PROGRAM GAP_KHUC;
     USES Crt, Graph;
     VAR Gd, Gm: integer;
     BEGIN
          Gd:= Detect;
          Initgraph (Gd, Gm,' ');
          Randomize; {1}
          REPEAT
               Lineto (Random(200), Random(200)); {2}
          UNTIL KeyPressed;
          Readln;
          Closegraph;
     END.
* Chương trình 3: Vẽ một đường tròn với viền màu trắng bên trong tô xanh.
PROGRAM DUONG_TRON;
     USES Graph;
     VAR Gd, Gm: integer;
     BEGIN
          Gd:= Detect;
          Initgraph (Gd, Gm,' ');
          Setcolor (100,100,80);
          SetFillStyle (100,100,white);
          Readln;
          Closegraph;
     END.
* Chương trình 4: Viết chương trình đổi màu màn hình một cách ngẫu nhiên khi có một phím được bấm, còn nếu bấm 'T' thì kết thúc chương trình.
PROGRAM THU_MAU_NEN;
     USES CRT, GRAPH;
     VAR Gd, Gm: integer;
           YK: char;
      BEGIN
           Gd:= Detect;
           Initgraph (Gd, Gm,' ’);
           Randomize;
           REPEAT
                SetBKColor (Random(GetMaxColor));
                C:= ReadKey;
           UNTIL UpCase(C) = T.;
           Closegraph;
       END.

* Chương trình 5: Vẽ các thanh hình chữ nhật tô màu xanh lá cây.
PROGRAM THANH_CHU_NHAT;
     USES CRT, GRAPH;
     VAR Gd, Gm: integer;
           I: integer;
      BEGIN
           Gd:= Detect;
           Initgraph (Gd, Gm,’ ');
           FOR I .:= 1 TO 10 DO
                Begin
                    SetFillStyle(1,2).;
                    Bar (I/* 10, I * 10, I * 10+100, I * 10+50);
                End;
           Readln;
           Closegraph;
     END.
* Chương trình 6: Vẽ một đa giác đểu
PROGRAM VEJDA_GIAC_DEU;
     USES Graph;
     VAR Gd. Gm: integer;
           K, N: integer;
           Arcco: Arcoords type;
     BEGIN
          Write ('Muon ve dã giac bao nhieu canh:’);
          Readin (N);
          Gd:= Detect;
          Initgraph (Gd, Gm,' ’);
          SetBKColor (Blue);
          Center X:= GetMax X div 2;
          Center Y:= GetMax Y div 2;
          Step:= 360 div N;
          FOR K:= 1 TO N DO
              Begin
                   SetColor (0);
                  Arc(Center X, Center Y, (K - l)*Step, K*Step, Center Y);
                  GetArcCoords (ArcCo);
                  SetColor (1);
                 WITH Arcco Do
                      Line (XStart, YStart, Xend, Yend);
             End;
       Closegraph;
END.