Программирование на Турбо Паскаль.

uses crt;
const Kol=5;
type mas = array [1..Kol] of string[20];
const stor: mas = (' 1 ',' 2 ',' 3 ',' 4 ','Vyxod');
var i,k : byte;
procedure PrintMenu(var k: byte);
var kod: char;
begin
clrscr;
k:=1;
gotoxy(4,1);
K :=1;
repeat
for i:=1 to Kol do
begin
if I=K then
begin
textbackground(3);
textcolor(12);
end
else
begin
textbackground(0);
textcolor(15)
end;
gotoxy(5*(i-1)+1,1);
write(stor[ i ]);
end;
repeat
kod:=readkey;
until Kod in [#13, #75, #77];
case Kod of
#75: begin K := K-1; if K = 0 then K := Kol;
end;
#77: begin K :=K+1; if K =10 then K := 1; end;
end;
until Kod = #13 ;

end;
begin
repeat
textbackground(0);
textcolor(15);
PrintMenu(K);
clrscr;
textbackground(0);
textcolor(15);
if k<5 then
begin
write('vybran variant ',k); readln;
end
else exit;
case K of
1: ;
2: ;
end;
until k = 5;
end.

Могу сказать только структуру как это делать, однажды доводилось писать такую, но увы, винт слетел, и не восстановить уже её...
Написать не могу, времени и так нет, да и сессия.. .
Да, отношение к графики это не имеет дела, я про метки, которые вы оставили.
Сообщите мне на E-Mail ЧТО именно вам непонятно, если желаете, то можете присылать целый список непонятных вопросов, попробую по дороге в универ, на буке накидать ответы на все вопросы.

Вот такие вот у нас программисты в институтах учатся...