Николай Кузанский, Парадигма Н.Кузанского Опции

[Чужак]

Николай Кузанский, 16в. придумал фигуру из двух треугольников,
напоминающую Звезду Давида, назвал её "Парадигмой" (парадигма-греч.модель).
Вот отрисовка:

program KyzanskiyModel;
 uses crt,graph;
 var Gd, Gm: Integer;
begin
 clrscr;
 Gd := Detect;
 InitGraph(Gd, Gm, ' ');
 Setcolor(15); setlinestyle(0,0,3);
 Line(220,140,420,140);Line(220,140,320,340);Line(420,140,320,340);
 Line(220,340,420,340);Line(220,340,320,140);Line(420,340,320,140);
 Line(320,140,320,340);{-эта линия не обязательно-}
 readln;
end.

Ну, отрисовать это легко, но усложнил-решил сделать, чтобы основание нижнего треугольника
сокращалось до нуля, а верхний-наоборот, из нуля выходил, и останавливался,
когда его основание станет таким же, как было у нижнего.
Вот что получилось:

program KyzanskiyModel2;
 uses crt,graph;
 var Gd, Gm, t: Integer;
begin
 clrscr;
 Gd := Detect; t:=0;
 InitGraph(Gd, Gm, ' ');
 repeat
 Setcolor(15); setlinestyle(0,0,3);
 Line(320+t,140,320-t,140);Line(320+t,140,320,340);Line(320-t,140,320,340);
 Line(220+t,340,420-t,340);Line(220+t,340,320,140);Line(420-t,340,320,140);
 Line(320,140,320,340); Delay(2000);
 Setcolor(0); setlinestyle(0,0,3);
 Line(320+t,140,320-t,140);Line(320+t,140,320,340);Line(320-t,140,320,340);
 Line(220+t,340,420-t,340);Line(220+t,340,320,140);Line(420-t,340,320,140);
 Line(320,140,320,340);
 t:=t+1;
 until (keypressed) or (t>100);
 readln;
end.

Помогите:
1. Как сделать, чтобы после окончания работы программы,
оставался верхний треугольник? (Его в конце зарисовывает тоже).
2. Как сделать заливку
а) одному треугольнику
б) двум, но разным цветом?