writeln('є5.Watch є');
textbackground(blue);
gotoxy(25,30);
if t=6 then
textbackground(black);
writeln('є6.Search the student. є');
textbackground(blue);
gotoxy(25,31);
if t=7 then
textbackground(black);
writeln('є7.Write output file. є');
textbackground(blue);
gotoxy(25,32);
if t=8 then
textbackground(black);
writeln('є8.ExiT. є');
textbackground(blue);
gotoxy(25,33);
writeln('ИННННННННННННННННННННННННННННННННННННННј');
textbackground(blue);
end;
{------------------------------------------------------}
{-------------------------------------------------------------------------}
{----------------------------------------------------------------------------------}
{------------------------------OSNOVNAYA-------------------------------------------}
{----------------------------------------------------------------------------------}
begin
x:=1; //номер строки
textbackground(blue);
okno(x);
while true do//бесконечный цикл
begin
c:=readkey; //чтение клавиши
if ord(c)=13 then//ентер
casexof//выбор процедур по их номеру пунктов
1:begin clrscr;org;if sozdan=true then klavishi(1);end;
2:begin clrscr;obrabotka;end;
3:begin clrscr;udal;end;
4:begin clrscr;dob;end;
5:begin clrscr;obrabotka;klavishi(2);end;
6:begin clrscr;klavishi(3);end;
7:begin clrscr;zapis_v_fail;end;
8:begin clrscr;halt;end;
end;
if c=#0
then
begin
c:=readkey;
if c=#80 then//если вниз
begin
x:=x+1; //увеличение номера строки на 1
ifx>8 then//если он больше 8
begin
x:=1; //то он будет =1
okno(x); //печать меню
end
else
okno(x); //печать меню
end
else
if c=#72 then//если вверх
begin
x:=x-1; //уменьшение номера строки на 1
ifx<1 then//меньше1
begin
x:=8; //присвоить значение 8
okno(x); //печать меню
end
else
okno(x); //печать меню
end
else
okno(x); //печать меню
end
else
okno(x); //печать меню
end;
end.