Кубик рубик с разными цветами+подпись

Program n_1;
uses graphABC;
var i,x1,x2,x3,y1,y2,y3,n,m,ss:integer;
g:system.Drawing.Color;
begin
randomize;
setwindowsize (700,600);
setpenwidth(4);
ss:=140;
g:=rgb(random(256),random(256),random(256));
n:=50; m:=450;
x1:=100; x2:=100; x3:=400;
y1:=500; y2:=500; y3:=500;
for i:=1 to 7 do begin
line(x1,y1,x1,y1-300);
line (x2,y2,x2+300,y2);
line (x3,y3,x3+120,y3-120);
if i<4 then begin
x1:=x1+100;
y2:=y2-100; y3:=y3-100;
end else begin
x1:=x1+40; x2:=x2+40; x3:=x3-100;
y1:=y1-40; y2:=y2-40; 
end;
end;
for i:=1 to 9 do begin
n:=n+100;
floodfill (n,m,g);
g:=rgb(random(256-25),random(256-35),random(256-45));
IF (n>=350) then begin
n:=50; m:=m-100;
end;
end;
n:=420; m:=140;
for i:=1 to 9 do begin
IF m>=400 then begin
m:=ss-20;
ss:=ss-20;
n:=n+40;
end;
IF n>=500 then n:=490;
m:=m+100; 
floodfill(n,m,g);
g:=rgb(random(256-50),random(256-60),random(256-70));
end;
n:=50; m:=190;
for i:=1 to 6 do begin
IF n>=350 then begin
n:=70;
m:=m-50;
end;
n:=n+100;
floodfill(n,m,g);
g:=rgb(random(256-100),random(256-110),random(256-120));
end;
n:=290; m:=100;
for i:=1 to 3 do begin
floodfill(n,m,g);
g:=rgb(random(256-100),random(256-110),random(256-120));
n:=n+100;
end;
end.