программа вывода на экран окна, обрамленного рамкой(PASCAL))

[Artur1992]

Помогите пожалуйста составить программу вывода на экран окна, обрамленного рамкой. Окно состоит из ячеек. При нажатии клавиши Enter первый генератор случайным образом меняет цвет ячейки, второй – цвет фона рамки окна. Изменение цвета ячейки сопровождается изменением тональности звука.
Ну или хотя бы скиньте ссылку на похожий пример. Заранее благодарю.

[SilverShield]

Вот немного похожая программа, думаю разберешься как переделать(Pascal ABC):

Program lr13;
uses crt;
type mas=array[0..15] of byte;
var i,j,c:integer; a:mas; x:char;
procedure win;
var i:integer;
begin
window(1,1,40,12);
for i:=1 to 40 do
write(chr(149));
write(chr(149));
write('COLOR');
gotoxy(40,2);
write(chr(149));
for i:=2 to 11 do
begin
gotoxy(1,i);
write(chr(149));
end;
for i:=2 to 11 do
begin
gotoxy(40,i);
write(chr(149));
end;
gotoxy(1,11);
for i:=1 to 40 do
write(chr(149));
end;
begin
clrscr;
win;
window(41,1,80,12);
gotoxy(41,1);
for i:=0 to 15 do
begin
textcolor(i);
write(char(64));
a[i]:=i;
end;
gotoxy(1,1);
c:=1;
repeat
     x:=readkey;
     if x=chr(75)  then
     begin
     if c=16 then c:=0;
     c:=c+1;
     textcolor(c-1);
     win;
     window(41,1,80,12);
     gotoxy(c,1);
     end;
     if x=chr(77)  then
     begin
     if c=1 then c:=17;
     c:=c-1;
     textcolor(c-1);
     win;
     window(41,1,80,12);
     gotoxy(c,1);
     end;
until (x=#27);
end.

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Artur1992]

Премного благодарен!