Cоздание двух окон, которое одно из них разбито на ячейки и с перемещением курсора по ячейкам.

uses crt;
const
Lu=#218;
Ru=#191;
LD=#192;
rd=#217;
H= #196;
V= #179;
X1= 5;
Y1= 2;
X2= 17;
Y2= 9;
x11=25;
y11=2;
x22=37;
y22=9;
Var
 k :integer;
Begin
Clrscr;
Textbackground(black);
Window(x1, y1, x2,y2);
Clrscr;
Write (lu);
For K:=X1+1 to x2-1 do Write (H);
Write (Ru);
for K:=Y1+1 to Y2-1 do
begin
GotoXY(1,K-y1+1);
Write(v);
gotoXY(x2-x1+1,WhereY);
Write(V);
end;
Write(LD);
window (x1,y1,x2,y2+1);
GotoXY(2,y2-y1+1);
for K:=X1+1 to x2-1 do Write(H);
Write(RD);
TextBackground(red);
Window (x11,y11,x22,y22);
Write (lu);
For K:=X11+1 to x22-1 do Write (H);
Write (Ru);
for K:=Y11+1 to Y22-1 do
begin
GotoXY(1,K-y11+1);
Write(v);
gotoXY(x22-x11+1,WhereY);
Write(V);
end;
Write(LD);
window (x11,y11,x22,y22+1);
GotoXY(2,y2-y1+1);
for K:=X11+1 to x22-1 do Write(H);
Write(RD);
readln;
end.

uses crt,graph;
const
Lu=#218;
Ru=#191;
LD=#192;
rd=#217;
H= #196;
V= #179;
X1= 25;
Y1= 5;
X2= 40;
Y2= 20;
type Point=record
           x,y,x1,y1:integer;
           end;
           var
           K:integer;
procedure Zel;
begin
Textbackground(green);
Window(x1, y1, x2,y2);
Clrscr;
Write (lu);
For K:=X1+1 to x2-1 do Write (H);
Write (Ru);
for K:=Y1+1 to Y2-1 do
begin
GotoXY(1,K-y1+1);
Write(v);
gotoXY(x2-x1+1,WhereY);
Write(V);
end;
Write(LD);
window (x1,y1,x2,y2+1);
GotoXY(2,y2-y1+1);
for K:=X1+1 to x2-1 do Write(H);
Write(RD);
end;
procedure menyu;
var x,y,x1,y1:integer;
    i,c:byte;
    a:Point;
    move:boolean;
    k:char;
begin
{ knopoki}
x:=1;y:=10;
for i:=1 to 3 do
  begin
   y:=10+20*(i-1);
   Setcolor(i+1);
   Rectangle(x,y,x+90,y+20);
   Setfillstyle(1,i+1);
   Bar(x,y,x+90,y+20);
 end;
{nazvani9 knopak}
Setcolor(0);
outtextxy(5,18,'Green');
outtextxy(5,38,'Blue');
outtextxy(5,58,'Red');
{sozdanie i dvizenie kursora}
a.x:=80;a.y:=78;{nachalbnoe pologenie kursora}
move:=true;
repeat
if keypressed then
   begin
     k:=readkey;
     if k=#80 then
       begin
        a.y1:=a.y;
        a.x1:=a.x;
        a.y:=a.y+20;
        move:=true;
       end;
     if k=#72 then
       begin
        a.y1:=a.y;
        a.x1:=a.x;
        a.y:=a.y-20;
        move:=true;
       end;
      if (k=#13)and (a.y=18) then Zel; 
    end;
if move then
    begin
      if a.y1=18 then c:=2
      else if a.y1=38 then c:=3
      else if a.y1=58 then c:=4
      else c:=0;
      Setcolor(c);
      Circle(a.x1,a.y1,5);
      Setfillstyle(1,c);
      Fillellipse(a.x1,a.y1,5,5);
      Setcolor(12);
      Circle(a.x,a.y,5);
      Setfillstyle(1,12);
      Fillellipse(a.x,a.y,5,5);
      move:=false;
    end;
until k=#27;
end;
 
var gd,gm:integer;
begin
gd:=detect;
initgraph(gd,gm,'');
menyu;
closegraph;
end.