Составьте программу, демонстрирующую построение в центре экрана квадрата из линий

uses graph, crt ;
var gm, gd, x, y, c : integer ;
 
procedure line1(y, c : integer);
          begin
               setcolor(c);
               line(280, y, 360, y);
          end;
 
procedure line2(y,c : integer);
          begin
               setcolor(c);
               line(280, y, 360, y);
          end;
 
procedure line3(x,c : integer);
          begin
               setcolor(c);
               line(x, 200, x, 280);
          end;
 
procedure line4(x,c : integer);
          begin
               setcolor(c);
               line(x, 200, x, 280);
          end;
 
procedure line1move;
          begin
                y := 2;
     Repeat
           line1(y,c); 
           delay(10);
           line1(y,black);
           y:= y + 2;
           line1(y,c);
           delay(10);
           line1(y,black);
     until y = 200 ;
     line1(y,c);
          end;
 
procedure line2move;
          begin
               y := 478;
               Repeat
                     line2(y,c); 
                     delay(10);
                     line2(y,black);
                     y:= y - 2;
                     line2(y,c);
                     delay(10);
                     line2(y,black);
               Until y = 280;
               line2(y,c);
          end;
 
procedure line3move;
          begin
                x := 2;
                Repeat
                      line3(x,c); 
                      delay(10);
                      line3(x,black);
                      x:= x + 2;
                      line3(x,c);
                      delay(10);
                      line3(x,black);
                Until x = 280;
                line3(x,c);
          end;
 
procedure line4move;
          begin
               x := 638;
               Repeat
                     line4(x,c); 
                     delay(10);
                     line4(x,black);
                     x:= x - 2;
                     line4(x,c);
                     delay(10);
                     line4(x,black);
               Until x = 360;
               line4(x,c);
          end;
 
BEGIN
     randomize;
     detectgraph(gd,gm);
     initgraph(gd,gm,'');
     c := 3 ; {Zadaetsya cvet kvadrata}
     line1(2,c);
     line2(478,c);
     line3(2,c);
     line4(638,c);
     line1move;
     line2move;
     line3move;
     line4move;
 
     readkey;
     CloseGraph;
END.