Вывод разноцветных окон. Проигрывание звука. - Turbo Pascal

Формулировка задачи:

Здравствуйте, Помогите пожалуйста разобраться: Написать программу, которая выводит на экран окна разных цветов, и при каждом появлении окна выводит звук. Я знаю как заставить программу рисовать и воспроизводить звук, а вот как выводить окна не понимаю. Помогите пожалуйста...

Так будет правильно?

Program P3;
uses CRT;
ver x1,y1,x2,y2,x3,y3,x4,y4,color: integer;
begin
Randomize;
repeat
x1:=Random(80); textbackground(white);
Sound(Random(2000)); nosound;
clrscr;
y1:=Random(25); textbackground(yellow);
Sound(Random(2000)); nosound;
clrscr;
x2:=Random(80); textbackground(blue);
Sound(Random(2000)); nosound;
clrscr;
x3:=Random(42); textbackground(green);
Sound(Random(2000)); nosound;
clrscr;
y3:=Random(72); textbackground(white);
Sound(Random(2000)); nosound;
clrscr;
x4:=Random(15); textbackground(black);
Sound(Random(2000)); nosound;
clrscr;
y4:=Random(50); textbackground(brown);
Sound(Random(2000)); nosound;
clrscr;
y2:=Random(80); textbackground(blue);
Sound(Random(2000)); nosound;
color:=Random(16); textbackground(red);
clrscr;
Window(x1,y1,x2,y2);
until
KeyPressed;
NoSound;
end.

Ещё вопрос.... написать программу которая выводит x x 0 x x (x вначале и в конце окна программы, 0-посередине) Заранее спасибо!

Решение задачи: «Вывод разноцветных окон. Проигрывание звука.»

Листинг программы

uses crt;
procedure Krest;
begin
writeln('x   x');
writeln('  0 ');
write('x   x');
end;
procedure Okno(x,y,k:integer);
begin
window(x,y,x+5,y+3);
textbackground(k);
textcolor(k+8);
clrscr;
sound(600);
delay(100);
nosound;
end;
 
var x,y,k:integer;
begin
textbackground(0);
clrscr;
y:=1;
k:=1;
repeat
 x:=1;
 repeat
 Okno(x,y,k);
 if (x=1)or(x=79) then Krest;
 delay(300);
 k:=k+3;
 if k=16 then k:=1;
 x:=x+6;
 until (x>80)or keypressed;
y:=y+4;
until (y>24)or keypressed;
end.

Объяснение кода листинга программы

В первой строке кода используется библиотека crt, которая предоставляет функции для работы с консолью.
Вторая строка содержит процедуру Krest, которая выводит на экран строку x x и 0.
В третьей строке содержится процедура Okno, которая устанавливает параметры окна (координаты и цвет фона) и воспроизводит звуковой сигнал с помощью функции sound.
Четвертая строка объявляет переменные x, y и k типа integer.
В блоке repeat-until основной программы происходит циклическое выполнение кода.
Внутри цикла x повторяется вызов процедуры Okno с переменной x, y и k. Если значение x равно 1 или 79, то вызывается процедура Krest.
После каждого вызова процедуры Okno происходит задержка в 300 мс с помощью функции delay.
Переменная k увеличивается на 3 при каждом цикле. Если значение k равно 16, то оно сбрасывается обратно к 1.
Переменная x увеличивается на 6 при каждом цикле. Если значение x превышает 80 или нажата клавиша, то цикл прерывается.
Аналогично происходит увеличение переменной y и прерывание цикла при достижении значения 24 или нажатия клавиши.