Создать меню, с помощью которого можно выбрать цвет заливки текстового окна - Turbo Pascal

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

В построенном окне создать меню, с помощью которого можно выбрать цвет заливки текстового окна. Пункты меню 1 красный цвет 2 зеленый цвет 3 синий цвет 4 выход Не могу сделать, так что б заливал, после заливки к примеру красным, программа закрывается.

Решение задачи: «Создать меню, с помощью которого можно выбрать цвет заливки текстового окна»

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

uses crt;
procedure okno(x1,y1,x2,y2:byte;f:integer);
begin
window(x1,y1,x2,y2);
textbackground(f);
textcolor(14);
clrscr;
writeln('Выберите цвет фона');
writeln('1-красный');
writeln('2-зеленый');
writeln('3-синий');
writeln('другое-выход');
end;
var x1,y1,x2,y2:byte;
    w:char;
begin
window(1,1,80,25);
textbackground(0);
textcolor(7);
clrscr;
x1:=30;
y1:=11;
x2:=50;
y2:=15;
okno(x1,y1,x2,y2,7);
repeat
readln(w);
case w of
'1':okno(x1,y1,x2,y2,4);
'2':okno(x1,y1,x2,y2,2);
'3':okno(x1,y1,x2,y2,1);
else exit;
end;
until not(w in['1'..'3']);
end.

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

Подключается библиотека crt.
Создается процедура okno, которая принимает четыре аргумента: x1, y1, x2, y2 (координаты верхнего левого угла окна) и f (цвет фона).
Вызывается функция window с указанными координатами для создания окна.
Вызывается функция textbackground с аргументом 0, чтобы установить цвет фона текста в черный.
Вызывается функция clrscr, чтобы очистить экран.
Выводится сообщение с предложением выбрать цвет фона.
Переменные x1, y1, x2, y2 инициализируются значениями 1, 1, 80, 25 соответственно.
Вызывается функция window с новыми координатами для создания нового окна.
Вызывается функция textbackground с аргументом 0, чтобы установить цвет фона текста в черный.
Вызывается функция clrscr, чтобы очистить экран.
В цикле повторяется чтение строки из окна до тех пор, пока пользователь не введет '1', '2' или '3'.
В зависимости от введенной пользователем строки вызывается соответствующая функция okno с новыми значениями координат и цветом фона.
Если введенная пользователем строка не соответствует '1', '2' или '3', цикл прекращается и программа завершается.