Меню через стрелки

1.Vuvestu informaciy pro cex na ekran  
 
 2.Vuvestu vsy info                    
 
 3.Dodatu zapus                         
 
 4.Dodatu informaciy v faail            
 
 5.Vudalutu robochogo     
 
 6.EXIT

{$X+}
uses
    Crt;
 
const
    ITEMS_COUNT = 6;
    ITEMS :array[1..ITEMS_COUNT] of string = (
        'Pervoe',
        'Vtoroe',
        'Tretie',
        'Chetvertoe',
        'Pjatoe',
        'Exit'
    );
    MENU_X = 20;
    MENU_Y = 3;
 
var iSel:Byte;
 
function WaitKey:word;
var r:word;
begin
    r := Word(ReadKey);
    if r = 0 then begin
        r := $FF00 or Word(ReadKey);
    end;
    WaitKey := r;
end;
 
function PrintMenu:Byte;
var i:Byte;
begin
    ClrScr;
    for i:=1 to ITEMS_COUNT do begin
        GotoXY(MENU_X, MENU_Y+i);
        write(i, '. ', ITEMS[i]);
    end;
    GotoXY(MENU_X-2, MENU_Y+iSel);
 
    repeat
        case WaitKey of
            $FF00 or 72: begin
                dec(iSel);
                if iSel<=0 then iSel := ITEMS_COUNT;
                GotoXY(MENU_X-2, MENU_Y+iSel);
            end;
            $FF00 or 80: begin
                inc(iSel);
                if iSel>ITEMS_COUNT then iSel := 1;
                GotoXY(MENU_X-2, MENU_Y+iSel);
            end;
            13: begin
                PrintMenu := iSel;
                exit;
            end;
        end;
    until false;
end;
 
begin
    iSel := 1;
    repeat
        case PrintMenu of
            1: begin
                ClrScr;
                writeln('1.');
                WaitKey;
            end;
            2: begin
                ClrScr;
                writeln('2.');
                WaitKey;
            end;
            3: begin
                ClrScr;
                writeln('3.');
                WaitKey;
            end;
            4: begin
                ClrScr;
                writeln('4.');
                WaitKey;
            end;
            5: begin
                ClrScr;
                writeln('5.');
                WaitKey;
            end;
            6: begin
                ClrScr;
                break;
            end;
        end;
    until false;
end.

{$X+}
uses
    Crt;
 
const
    { кол-во пунктов меню }
    ITEMS_COUNT = 6;
    { названия пунктов меню, кол-во должно соответствовать }
    ITEMS :array[1..ITEMS_COUNT] of string = (
        'Pervoe',
        'Vtoroe',
        'Tretie',
        'Chetvertoe',
        'Pjatoe',
        'Exit'
    );
    { координаты отображения меню }
    MENU_X = 20;
    MENU_Y = 3;
 
var
    { текущий выбранный пункт меню }
    iSel:Byte;
 
function WaitKey:word;
{ ожидание нажатия клавиши }
{ для обычной клавиши возвращает ее ASCII код }
{ для расширенной клавиши возвращает ее код в младшем байте и $FF в старшем байте  }
var r:word;
begin
    r := Word(ReadKey);
    if r = 0 then begin
        { если нажали расширенную клавишу, считываем ее код }
        r := $FF00 or Word(ReadKey);
    end;
    WaitKey := r;
end;
 
function PrintMenu:Byte;
{ отображает и обрабатывает меню }
var i:Byte;
begin
    { очищаем экран и выводим пенкты меню }
    ClrScr;
    for i:=1 to ITEMS_COUNT do begin
        GotoXY(MENU_X, MENU_Y+i);
        write(i, '. ', ITEMS[i]);
    end;
    { ставим курсор напротив текущего пункта }
    GotoXY(MENU_X-2, MENU_Y+iSel);
 
    repeat
        { ждем нажатия клавиши }
        case WaitKey of
            { ВВЕРХ }
            $FF00 or 72: begin
                { двигаем курсор на предыдущий пункт }
                dec(iSel);
                if iSel<=0 then iSel := ITEMS_COUNT;
                GotoXY(MENU_X-2, MENU_Y+iSel);
            end;
            { ВНИЗ }
            $FF00 or 80: begin
                { двигаем курсор на следующий пункт }
                inc(iSel);
                if iSel>ITEMS_COUNT then iSel := 1;
                GotoXY(MENU_X-2, MENU_Y+iSel);
            end;
            { Ентер }
            13: begin
                { возвращаемся из функции }
                PrintMenu := iSel;
                exit;
            end;
        end;
    until false;
end;
 
begin
    { изначально выбран первый пункт }
    iSel := 1;
    repeat
        { выводим и обрабатываем меню }
        { проверяем выбранный пункт }
        case PrintMenu of
            1: begin
                { очищаем экран }
                ClrScr;
                { что-то делаем }
                writeln('1.');
                { ждем нажатия любой клавиши дл возврата в меню }
                WaitKey;
            end;
            2: begin
                ClrScr;
                writeln('2.');
                WaitKey;
            end;
            3: begin
                ClrScr;
                writeln('3.');
                WaitKey;
            end;
            4: begin
                ClrScr;
                writeln('4.');
                WaitKey;
            end;
            5: begin
                ClrScr;
                writeln('5.');
                WaitKey;
            end;
 
            { выход }
            6: begin
                { очищаем экран и выходим из цикла }
                ClrScr;
                break;
            end;
        end;
    until false;
end.