pascal / 2 лаба / Program4

program m;
const kol=5;
vybor:array[1..kol] of string=('3+3=?','3*3=?','3^3=?',
'33!=?','Выход');
procedure Menu(var k:byte);
var kod: char;
i:byte;
begin
window(1,1,80,25);
textbackground(0);
clrscr;
k:=1;
gotoxy(4,1);
write('Меню');
k:=1; {выведен первый пункт меню}
repeat
for i:=1 to kol do
begin
if i=k then {выделенный пункт}
begin
textbackground(3);
textcolor(9);
end
else {остальные}
begin
textbackground(0);
textcolor(15)
end;
gotoxy(1,i+1);{ставим курсор}
write(vybor[i]);{выводим пункты}
end;
repeat
kod:=readkey;
until Kod in [#13, #72, #80];
case Kod of
#72: begin{стрелка вверх}
k:=k-1;
if k=0 then k:=5;{если выше верха, вниз}
end;
#80: begin {стрелка вниз}
k:=k+1;
if k=6 then k:=1;{если ниже низа, вверх}
end;
end;
until kod=#13;{нажат Enter, выходим из меню в выбранную процедуру}
end;