pascal / 2 лаба / Program5

uses crt;
const kol=5;{количество пунктов меню}
{массив названий пунктов меню}
vybor:array[1..kol] of string=
('1-Диод','2-Транзистор ','3-Тиристор','4-Стабилитрон','5-Выход');

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;


{основная программа}
var k:byte;
h,m,d,w:word;
s:string;
begin
s:='Выбран тип полупроводникового прибора ';
repeat
textbackground(0);
textcolor(15);
Menu(k);{выводим меню}
clrscr;
case k of{выбираем стрелками действие}
1: begin
write(s,'диод');
readln;
end;
2: begin
write(s,'транзистор');
readln;
end;
3: begin
write(s,'тиристор');
readln;
end;
4: begin
write(s,'стабилитрон');
readln;
end;
5: exit;
end;
until k=5;
end.