Uses CRT;
var
x1,x2,y1,y2: integer; {координаты левого верхнего (x1,y1) и правого нижнего (x2,y2) углов окна} 
c,s:char;

begin
 TextBackground(Black);
 clrscr;
 writeln('Нажмите F9 для создания текстового окна');
 s:= readkey;
 if s=#0 then s:=readkey;
 if s=#67 then {F9}
 begin
 clrscr;
 x1:=10; x2:=20; y1:=10; y2:=20;
{Создаем окно - желтые символы на синем фоне}
 Window(x1,y1,x2,y2);
 TextBackground(Blue);
 TextColor(Yellow);
 clrscr;

 repeat
  c := readkey;
  case c of
   #72:y1:=y1-1; {вверх}
   #75:x1:=x1-1; {влево}
   #80:y2:=y2+1; {вниз}
   #77:x2:=x2+1; {вправо}
  end;
writeln (ord(c));
  Window(x1,y1,x2,y2);
  clrscr;
 until c=#27 {выход по Esc}
  end;
end.