Шпаргалка: Построение циклических кодов

TextColor(9);

end

else

begin

LowVideo;

TextColor(1);

end;

GotoXY(26,10+i);

Writeln(SubMenuLine[i]);

CursorOff;

end;

if KeyPressed

then begin

ch:=Readkey;

if(ch=#0)

then begin

ch1:=Readkey;

case ch1 of

#72 : if(Count>1)

then dec(Count);

#80 : if(Count<SubMenuTop)

then inc(Count);

end;

end;

end;

until(ch=#13);

GetSubMenuChoice:=Count;

end;

Procedure About;