меню

repeat
 writeln('1-вариант 1, 2-вариант 2, 3-выбор, 4-выход');
 readln(k);
  case k of
 1: begin
      {действие 1}
    end;
 2: begin
      {действие 2}
    end;
 3: readln(k); {выбираем действие}
keypressed;
end;
until k=4;

uses crt;
type mas = array [1..3] of string[20];
const stor: mas = (' вариант 1 ',
                   ' вариант 2 ',
                   ' вариант 3 ' );
var i,k: byte;
    kod: char;
begin
textmode(co80);
clrscr;
window(31,11,50,16);
textbackground(7);
textcolor(0);
clrscr;
k:=1;
gotoxy(4,1);
write('меню');
Kod:=' ';
while kod<>#13 do
               begin
               for i:=1 to 3 do begin
                                if I=K then begin
                                textbackground(0);
                                textcolor(7);
                                end
                                else begin
                                textbackground(7);
                                textcolor(0)
                                end;
                                gotoxy(1,i+1);
                                write(stor[i]);
                                end;
 
kod:=readkey;
sound(700);
delay(500);
nosound;
if kod=#0 then
          begin
          kod:=readkey;
          if kod=#72 then
           if k>1 then k:=k-1 else k:=3;
           end;
end;
window(1,1,80,25);
clrscr;
gotoxy(33,15);
write('выбран вариант',k:1);
end.

s:= '<--';
if keypressed then
 begin
   c:=readkey;
   if c=#80 then
    begin
     gotoXY(10,whereY-1);
     write(s);
    end;
   if c=#72 then
    begin
     gotoXY(10,whereY+1);
     write(s);
    end;