процедуры модуля Crt

[Bin]

Составьте программу вывода на экран двух окон. Первое – обрамленное рамкой и в него занесен текст. Второе окно сформировано в виде ячеек разных оттенков цвета. Перемещение по ячейкам осуществляется стрелками управления курсором. При этом цвет фона окна с текстом меняется в соответствии с цветом ячейки.
Проблема в том что не могу сделать чтобы управления осуществлялось стрелками курсора и при этом цвет фона окна с текстом менялся в соответствии с цветом ячейки.

uses crt;
const
Lu= #218;
Ru= #191;
LD= #192;
RD= #217;
H= #196;
V=#179;
Txt='okno';
Var
j,k:integer;
Procedure Okno;
Begin
TextBackground(black);
TextColor(white);
Window(5,5,20,10);
Clrscr;
Write(Lu);
For K:=5+1 to 20-1 do Write (H);
Write(Ru);
For K:=5+1 to 10-1 do
Begin
GotoXy(1,k-5+1);
Write (V);
GotoXY(20-5+1,WhereY);
Write(V);
End;
Write(lD);
Window (5,5,20,10+1);
GotoXY(2,10-5+1);
For K:=5+1 to 20-1 do Write (H);
Write(RD);
Gotoxy(7,2);
WRite(TXT);
end;
procedure Gre;
begin
TextBackground(green);
Window (25,5,30,5);
Textcolor(Black);
Clrscr;
Write ('Green');
end;
procedure re;
begin
TextBackground(red);
Window (25,6,30,6);
Textcolor(Black);
Clrscr;
Write(' red');
end;
procedure blu;
Begin
TextBackground(blue);
Window (25,7,30,7);
Textcolor(Black);
Clrscr;
write(' blue');
end;
procedure Fon;
var
c:Char;
Begin
repeat
if keypressed then
   begin
     c:=readkey;

 end;
 until c=#27;
end;
Begin
Okno;
gre;
re;
Blu;
readkey;
End.