Не могу убрать линию - Pascal ABC

program Flag1;
 
uses
  GraphABC;
 
var
  i, j: integer;
 
begin
  SetWindowTop(0);
  SetWindowLeft(0);
  Window.Caption := 'Папуа - Нова Гвінея';
  SetWindowHeight(768);
  SetWindowWidth(1366);
  Line(0, 0, 1389, 758);
  Line(0, 0, 0, 768);
  Line(0, 768, 1366, 768);
  FloodFill(100, 400, clBlack);
  FloodFill(500, 100, clRed);
  //______________________________________
  
  {while i < 1389 do
  begin
  TextOut(i,10, IntToStr(i)); 
  inc(i,50);
  SetPenColor(clYellow);
  Line(i,0,i,768)
  end;
  
  while j < 768 do
  begin
  TextOut(10,j, IntToStr(j)); 
  inc(j,50);
  SetPenColor(clYellow);
  Line(0,j,1389,j);
  end;
  }
  //_______________________________________
  
  //Зірка 1
  SetPenColor(RGB(3, 3, 3));
  Line(342, 238, 326, 276);
  Line(342, 238, 357, 276);
  Line(326, 276, 277, 277);
  Line(357, 276, 408, 276);
  Line(277, 277, 315, 300);
  Line(408, 276, 369, 300);
  Line(315, 300, 301, 336);
  Line(369, 300, 383, 336);
  Line(301, 336, 342, 315);
  Line(383, 337, 342, 315);
  FloodFill(338, 286, clWhite); 
  
  //Зірка 2
  SetPenColor(RGB(3, 3, 3));
  Line(186, 388, 169, 427);
  Line(186, 388, 201, 427);
  Line(169, 427, 120, 427);
  Line(201, 427, 252, 427);
  Line(120, 427, 159, 450);
  Line(252, 427, 212, 450);
  Line(159, 450, 145, 486);
  Line(212, 450, 227, 486);
  Line(145, 486, 186, 464);
  Line(227, 486, 186, 464);
  FloodFill(189, 437, clWhite); 
  
  //Зірка 3
  SetPenColor(RGB(3, 3, 3));
  Line(498, 377, 481, 414);
  Line(498, 377, 512, 414);
  Line(481, 414, 431, 414);
  Line(512, 414, 564, 414);
  Line(431, 414, 470, 440);
  Line(564, 414, 525, 440);
  Line(470, 440, 457, 475);
  Line(525, 440, 538, 475);
  Line(457, 475, 498, 454);
  Line(538, 476, 498, 454);
  FloodFill(496, 429, clWhite);
  
  //Зірка 4
  SetPenColor(RGB(3, 3, 3));
  Line(342, 591, 325, 628);
  Line(342, 591, 357, 628);
  Line(325, 628, 276, 628);
  Line(357, 628, 408, 628);
  Line(276, 628, 315, 652);
  Line(408, 628, 369, 652);
  Line(315, 652, 301, 688);
  Line(369, 652, 382, 688);
  Line(301, 688, 342, 667);
  Line(382, 688, 342, 667);
  FloodFill(350, 641, clWhite);
  
  //Зірка 5
  SetPenColor(RGB(3, 3, 3));
  Line(412, 509, 404, 527);
  Line(412, 509, 419, 527);
  Line(404, 527, 379, 527);
  Line(419, 527, 445, 527);
  Line(379, 527, 398, 540);
  Line(445, 527, 425, 540);
  Line(398, 540, 392, 558);
  Line(425, 540, 432, 558);
  Line(392, 558, 412, 547);
  Line(432, 558, 412, 547);
  FloodFill(404, 536, clWhite);
  
end.