Сделать флаг России на весь экран в Turbo Pascal

uses
  graph;
 
var
  x, y, k: integer;
  xx, yy, a, h, w: real;
  gd,gm: integer;
begin
  gd:=VGA;
  gm:=VGAHi;
  InitGraph(gd,gm,'c:\bp\bgi');
  SetViewPort(0,0,400, 400,True);
  SetBkColor(White);
  ClearViewPort;
  a := 0; k := 10; h := 10; w := 0.5;
  xx := 1 * k; yy := H * sin( w * xx + a );
  while xx <= 2.9 * k do
  begin
    y := round( H * sin( w * xx + a ));
    x := round(xx * k);
    putpixel(x, y + 100, DarkGray);
    putpixel(x, y + 150, DarkGray);
    putpixel(x, y + 200, DarkGray);
    putpixel(x, y + 250, DarkGray);
    xx := xx + 0.02;
  end;
  SetColor(DarkGray);
  line(100, 100 + round(yy), 100, 250 + round(yy));
  line(290, 100 - round(yy), 290, 250 - round(yy));
  SetFillStyle(SolidFill,Red);
  floodfill(200, 230, DarkGray);
  SetFillStyle(SolidFill,LightBlue);
  floodfill(200, 170, DarkGray);
  readln;
  closeGraph;
end.

uses graph;
var g,d:integer;
begin
g:=0;
initgraph(g,d,'');
setfillstyle(1,15);
bar(0,0,getmaxX,getmaxY div 3);
setfillstyle(1,9);
bar(0,getmaxY div 3,getmaxX,2*getmaxY div 3);
setfillstyle(1,12);
bar(0,2*getmaxY div 3,getmaxX,getmaxY);
readln
end.

uses Crt;
const c: array [1..3] of Integer = (7,1,4);
var i, j: Integer;
begin
  for i:=1 to 3 do begin
    TextBackground(c[i]);
    for j:=1 to 8 do WriteLn;
  end;
  NormVideo; WriteLn; ReadLn;
end.