Модуль CRT, вывести "мигающую" рамку.

uses crt;
const A=#218; B=#196; C=#191; D=#179; E=#192; F=#217;
      x1=2; y1=2; x2=20; y2=10;
var   fon,i:byte;       sim:char;
 
begin
repeat
begin
readkey;
fon:=random(7);
TextBackGround(black); clrscr;
 
textbackground(fon); textcolor(15);
gotoxy(x1-1,y1-1); write (a);
for i:=x1 to x2 do write(b);
write(c);
for i:=y1 to y2 do
begin
gotoxy(x1-1,i);write(d);
gotoxy(x2+1,i); write(d);
end;
gotoxy(x1-1,y2+1); write(e);
for i:=x1 to x2 do write(b);
write(f);
window(x1,y1,x2,y2);
textbackground(fon); clrscr; end; until readkey=(' ');
end.

uses crt;
const A=#218; B=#196; C=#191; D=#179; E=#192; F=#217;
      x1=2; y1=2; x2=20; y2=10;
var   fon,i:byte;       sim:char;
 
procedure ramka(i: byte);
begin
    TextBackGround(0);
    window(x1-1,y1-1,x2+1,y2+1);
    clrscr;
    textcolor(i);
    gotoxy(x1-1,y1-1);
    write (a);
    for i:=x1 to x2-1 do
      write(b);
    write(c);
    for i:=y1 to y2-1 do
    begin
      gotoxy(x2,y1+i-2);
      write(d);
    end;
    gotoxy(x1-1,y2);
      write(e);
    for i:=x1 to x2-1 do
      write(b);
     write(f);
    for i:=y1+1 to y2 do
    begin
      gotoxy(x1-1,y1+i-3);
      write(d);
    end;
    window(x1,y1,x2-1,y2-1);
    textbackground(fon);
    clrscr;
end;
 
begin
  randomize;
  repeat
  while not keypressed do
  begin
    ramka(15);
    delay(11000);
    ramka(13);
    delay(11000);
  end;
    fon:=random(7);
  until readkey = (' ');
end.

begin
    ramka(15);
    delay(11000);
    ramka(13);
    delay(11000);
  end;

begin
i:=random(15);
ramka(i);
delay(100);
end;