uses crt;
var x1,y1,x2,y2,k:integer;
    c:char;
    flag:boolean;
begin
TextBackground(black);
clrscr;
TextBackground(blue);
x1:=30;
y1:=10;
x2:=50;
y2:=13;
window(x1,y1,x2,y2); {определяем окно с начальными координатами}
clrscr; {инициализируем текстовое окно с очисткой экрана}
flag:=false;
repeat {цикл изменения размеров}
c:=readkey;
if c=chr(0) then c:=readkey; {игнорируем управляющий символ}
k:=ord(c); {определяем код введенного символа}
if k=67 then flag:=true; {нажатие клавиши F9}
if flag then begin
case k of
72: if y1>1 then y1:=y1-1 else y1:=1; {стрелка вверх}
80: if y2<25 then y2:=y2+1 else y2:=25; {стрелка вниз}
75: if x1>1 then x1:=x1-1 else x1:=1; {стрелка влево}
77: if x2<80 then x2:=x2+1 else x2:=80; {стрелка вправо}
end;
window(x1,y1,x2,y2); {определяем окно с текущими координатами}
TextBackground(blue); {определяем цвет фона}
clrscr; {инициализируем текстовое окно с очисткой экрана}
writeln('Test text Test text Test text'); {выводим контрольную фразу в новое текстовое окно}
end;
until c=chr(13); {отрабатываем нажатие Enter}
end.