Написать программу, которая ограничивает окно рамкой заданного типа и цвета. Цвет окна меняется случайным образом — Pascal(Паскаль)

Uses crt;
begin
  randomize;
  TextBackground(0);
  clrscr;
  repeat
    window(20,10,20,10);
    TextBackground(random(6)+1);
    clrscr;
  until readkey=#27;
end.