Учебное пособие: Основы технологии программирования

if punkt<n then begin

gotoxy(x,y+punkt-1);

write(menu[punkt]);

punkt:=punkt+1;

textattr:=sel;

gotoxy(x,y+punkt-1);

write(menu[punkt]);

textattr:= norm;

end;

chr(72) : { стрелка вверх }

if punkt<n then begin

gotoxy(x,y+punkt-1);

write(menu[punkt]);

punkt:=punkt-1;

textattr:=sel;

gotoxy(x,y+punkt-1);

write(menu[punkt]);

textattr:= norm;

end;

end; {case … of }

end

else

if ch=chr(13) then { нажата клавиша <Enter>}

begin

case punkt of

1 : punkt1;

2 : punkt2;

3 : ch:=chr(27) ; {выход}

end;