Модуль CRT - создание и вывод окна

uses crt;
var c:char;
    x,y,w,h,i,x1,k:integer;
begin
//координаты левого верхнего угла
x:=36;
y:=7;
//размеры окна
w:=9;
h:=9;
//фон неактивного окна
textbackground(0);
textcolor(15);
clrscr;
writeln('1.Вводите текст в появившемся окне');
writeln('2.Нажмите 2 раза Enter');
writeln('3.Выход - Esc ');
//активное окно
window(x,y,x+w,y+h);
textbackground(15);
textcolor(12);
clrscr;
if keypressed then
 begin
  c:=readkey; //читаем код символа
  write(c); //выводим в окно
 end;
readln; //смотрим
k:=w; //меняем цвет справа налево
repeat
if keypressed then c:=readkey;
case c of
#13:begin  //жмем Ввод
     for i:=1 to w+1 do
      begin
       x1:=x+i-1; //смещаем окна влево
       window(x1,y,x1,y+h);
       textbackground(abs(i-k));
       clrscr;
      end;
     delay(1000);//задержка 1 секунда
     k:=k-1;//новое окно
    end;
#27:exit; //Esc выход из программы
end;
until c=#27;
end.