Создание четырех окон разного цвета, которые появляются по кругу с небольшой задержкой

uses crt;
const ml:array[1..15] of integer=(659,523,659,523,698,659,587,392,392,392,440,
                                  494,523,523,523);
 
procedure okno(x,y,c:integer);
begin
window(x,y,x+4,y+2);
textbackground(c);
clrscr;
end;
 
var xc,yc,x,y,u,c,k:integer;
begin
textbackground(0);
clrscr;
xc:=38;
yc:=12;
u:=0;
c:=1;
k:=0;
while u<=340 do
 begin
  x:=xc+round(16*cos(u*pi/180));
  y:=yc-round(10*sin(u*pi/180));
  c:=c+1;
  k:=k+1;
  if k=16 then k:=1;
  if c=6 then c:=2;
  okno(x,y,c);
  sound(ml[k]);
  delay(500);
  nosound;
  u:=u+20
 end;
readln
end.

uses crt;
procedure okno(x,y,c,k:integer);
begin
window(x,y,x+11,y+7); {окно 12х8}
textbackground(c);
textcolor(15);
clrscr;
gotoXY(7,4);
write(k);
end;
var i,j,k,c:byte;
begin
textbackground(0);
clrscr;
k:=0;{номер окна}
c:=0;{его фон}
for j:=1 to 3 do
if odd(j) then{нечетные столбцы сверху вниз}
for i:=1 to 3 do
 begin
  k:=k+1;
  c:=c+1;
  if c=8 then c:=1;
  okno(1+(j-1)*12,1+(i-1)*8,c,k);
 end
else {четные снзу вверх}
 for i:=3 downto 1 do
  begin
  k:=k+1;
  c:=c+1;
  if c=8 then c:=1;
  okno(1+(j-1)*12,1+(i-1)*8,c,k);
 end;
readln
end.