Нарисовать на экране несколько вложенных друг в друга разноцветных прямоугольников, в левом углу каждого вывести номер цвета- Pascal(Паскаль)

uses graph,crt;
var
gd,gm,i,x,y,a,s : integer;
st : string;
begin
gd :=detect;
initgraph(gd,gm,'c:\tp7\bgi');
x :=200; y :=200;
s :=100; a :=104;
for i := 1 to 5 do
begin
setcolor(i);
rectangle(x+s,y+s,x-s,y-s);
str(i,st);
outtextxy(a,a,st);
s := s+20;
a :=a-20;
end;
readln;
end.