Алгоритм меню

[Egor2]

Привет.Упущение преподователей и моё.Программу написать могу, а вот с алгоритмом проблема.Если кто захочет мне помочь оповестите , как вам будет удобнее скинуть мне его. спасибо.

program Menutitle;
uses Graph,Crt;
var
Mode,Driver:integer;
k:char;
a:byte;
Label
1,2,3,4,5,6,7,8;
begin
Driver:=9;
Mode:=2;
initgraph(Driver,Mode,'d:\turbo\bp70\bgi\');
6:
cleardevice;
{setbkcolor(0);
setlinestyle(0,0,1);
setcolor(15);
outtextXY(290,10,'’');
settextstyle(8,0,2);
outtextXY(20,125,'');
outtextXY(280,150,'PASCAL');
outtextXY(200,175,'‘');
outtextxy(170,200,'‘');
outtextxy(230,225,'');
outtextxy(300,460,'2011');
readkey;}
cleardevice;
outtextXY(290,90,'Меню');
outtextXY(120,130,'1. Задача 1');
outtextXY(120,170,'2. задача 2');
outtextXY(120,210,'3. задача 3');
outtextXY(120,250,'4. ‚задача 4*');
outtextXY(120,290,'5. ‚Выход');
rectangle(115,120,540,160);
a:=3;
repeat
k:=readkey;
Case k of
#72: begin
     setcolor(black);
     rectangle(115,a*40,540,(a+1)*40);
     a:=a-1;
     if a=2 then a:=7;
     setcolor(white);
     rectangle(115,a*40,540,(a+1)*40);
     end;
#80: begin
     setcolor(black);
     rectangle(115,a*40,540,(a+1)*40);
     a:=a+1;
     if a=8 then a:=3;
     setcolor(white);
     rectangle(115,a*40,540,(a+1)*40);
     end;
end;
until k=#13;
Case a of
3:Goto 8;
4:Goto 8;
5:Goto 8;
6:Goto 6;
7:Goto 7;
end;
7:
cleardevice;
setcolor(white);
OuttextXY(250,200,'‚');
OuttextXY(270,240,'');
outtextXY(330,240,'');
Rectangle(250,220,320,260);
Repeat
k:=readkey;
Case K of
#75: begin
     setcolor(black);
     rectangle(320,220,370,260);
     setcolor(white);
     rectangle(250,220,320,260);
     a:=1;
     end;
#77: begin
     setcolor(black);
     rectangle(250,220,320,260);
     setcolor(white);
     rectangle(320,220,370,260);
     a:=0;
     end;
end;
until k=#13;
If a=0 then goto 6;
8:
end.

[Serge_Bliznykov]

1) программа имеет ряд опечаток

2) с алгоритмом чего у Вас проблемы то?

вывести текст.
ожидаем нажатие клавиш
нажали клавишу "стрелка вниз" - рисуем выделенный пункт ниже
нажали клавишу "стрелка вверх" - рисуем выделенный пункт выше
цикл крутим пока не нажали клавишу "ENTER"

всё..