Нарисовать на весь экран флаг Великобритании - Pascal ABC

uses graphABC;
var xc,yc:integer;
begin
setwindowsize(600,300);
centerwindow;
xc:=300;
yc:=150;
//красим все темно-синим
setpencolor(clWhite);
setbrushcolor(clNavy);
rectangle(0,0,600,300);
//рисуем то что белым
setpencolor(clWhite);
setbrushcolor(clWhite);
//крест
rectangle(xc-50,0,xc+50,300);
rectangle(0,yc-50,600,yc+50);
//диагонали
line(xc+50,yc+50,550,300);
line(xc+150,yc+50,600,275);
floodfill(560,290,clWhite);
line(xc+50,yc-50,550,0);
line(xc+150,yc-50,600,25);
floodfill(560,10,clWhite);
line(xc-50,yc-50,50,0);
line(xc-150,yc-50,0,25);
floodfill(40,10,clWhite);
line(xc-50,yc+50,50,300);
line(xc-150,yc+50,0,275);
floodfill(40,290,clWhite);
//рисуем то что красным
setpencolor(clRed);
setbrushcolor(clRed);
//крест
rectangle(xc-30,0,xc+30,300);
rectangle(0,yc-30,600,yc+30);
//диагонали
line(xc+100,yc+50,xc+140,yc+50);
line(xc+140,yc+50,600,280);
line(600,280,600,300);
line(600,300,xc+100,yc+50);
floodfill(595,280,clRed);
line(xc-100,yc-50,xc-140,yc-50);
line(xc-140,yc-50,0,20);
line(0,20,0,0);
line(0,0,xc-100,yc-50);
floodfill(5,20,clRed);
line(xc+50,yc-40,xc+90,yc-40);
line(xc+50,yc-40,560,0);
line(560,0,600,0);
line(600,0,xc+90,yc-40);
line(xc+90,yc-40,xc+50,yc-40);
floodfill(xc+60,yc-42,clRed);
line(xc-50,yc+40,xc-90,yc+40);
line(xc-50,yc+40,40,300);
line(40,300,0,300);
line(0,300,xc-90,yc+40);
line(xc-90,yc+40,xc-50,yc+40);
floodfill(xc-60,yc+42,clRed);
end.