{----- Управление при выборе данных Start -----}
Procedure Control(const ivalue:array of string; var value:string; item:integer);
var post:integer;
    ch:char;
Begin
GotoXY(30,WhereY); TextColor(White); Write('[ Для управления используйте стрелки "',#26, '" и "', #27,'" ]');

TextColor(Yellow); GotoXY(30,WhereY);
Post:=-1;
Repeat
Ch:=ReadKey;{Считываем ASCII код клавиши}
{#13 - клавиша "Enter" / #75 - стрелка влево / #77 - стрелка вправо}
if Ch in [#13,#75,#77] then
                           Case Ch of
                                #77:Begin {Стрелка вправо}
                                    Inc(Post); {Следующий элемент в массива}

                                    {Если элемент был последним, то возвращаемся к первому}
                                    if (Post > High(iValue)) then Post:=Low(iValue);{Первый элемент массива}
                                    GotoXY(30,WhereY); ClrEol; Write(iValue[Post]);
                                    end;

                                #75:Begin {Стрелка влево}
                                    Dec(Post); {Предыдущий элемент в массива}

                                    {Если элемент был первым, то переходим к последнему}
                                    if (Post < Low(iValue)) then Post:=High(iValue); {Последний элемент массива}
                                    GotoXY(30,WhereY); ClrEol; Write(iValue[Post]);
                                    end;


                                #13:Value:=iValue[Post]; {Запоминаем выбранный элемент массива}
                           end;{Case Ch}
Until (Ch = #13); {Клавиша "Enter"}
Writeln;
end;
{----- Управление при выборе данных End -----}