Горизонтальное меню в графическом режиме

uses crt,graph;
type Point=record{для центра курсора}
           x,y,x1,y1:integer;
           end;
procedure Vuz;
{вывод информации о ВУЗе}
begin
rectangle(200,100,440,200);
outtextXY(250,150,'UNUVERSITET');
end;
{информация о группе}
procedure Gruppa;
begin
rectangle(200,220,440,320);
outtextXY(250,270,'Gruppa 1234');
end;
{о студенте}
procedure Student;
begin
rectangle(200,340,440,440);
outtextXY(300,380,'Student');
outtextXY(320,400,'Petya');
end;
 
procedure menyu;
{создание кнопок, курсора, его перемещение и условия выполнения процедур}
var x,y,x1,y1:integer;
    i,c:byte;
    a:Point; {центр курсора}
    move:boolean;
    k:char;
begin
{sozdanie knopok}
x:=160;y:=10;{верхний левый угол первой кнопки}
for i:=1 to 4 do
  begin
   x:=160+80*(i-1);
   Setcolor(i+1);
   Rectangle(x,y,x+80,y+20);
   Setfillstyle(1,i+1);
   Bar(x,y,x+80,y+20);
 end;
{nadpisi na knopkah}
Setcolor(0);
outtextxy(185,15,'  VUZ');
outtextxy(265,15,'Gruppa');
outtextxy(345,15,'Student');
outtextxy(425,15,' Exit');
{sozdanie i dvizenie kursora}
a.x:=90;a.y:=15;{nachalo}
move:=true;
repeat
if keypressed then
   begin
     k:=readkey;
     if k=#77 then
       begin
        a.y1:=a.y;
        a.x1:=a.x;
        a.x:=a.x+80;
        move:=true;
       end;
     if k=#75 then
       begin
        a.y1:=a.y;
        a.x1:=a.x;
        a.x:=a.x-80;
        move:=true;
       end;
      if (k=#13)and (a.x=170) then Vuz; {knoka 1 + Enter}
      if (k=#13)and (a.x=250) then Gruppa;
      if (k=#13)and (a.x=330) then Student;
      if (k=#13)and (a.x=410) then k:=#27;
    end;
if move then
    begin
      if a.x1=170 then c:=2
      else if a.x1=250 then c:=3
      else if a.x1=330 then c:=4
      else if a.x1=410 then c:=5
      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.