База данных в Pascal

{Приветствие программы}
   procedure Privet_Programm (var key_Enter:char);
   begin
   textbackground(0);
   textcolor(15);
   clrscr;
   gotoXY(23,3);  write('База данных тарифных планов оператора');
   gotoXY(22,6);  write('Программа работает в графическом режиме');
   gotoXY(25,7);  write('Пользователю предоставляется меню');
   gotoXY(15,8);  write('Передвижение по меню осуществляется стрелкам "Вверх" и "Вниз"');
   gotoXY(18,9);  write('Выбор элемента меню осуществляется кнопкой "Пробел"');
   gotoXY(23,10); write('Для выхода из любого меню - кнопка "Esc"');
   gotoXY(25,23); write('Нажмите Enter для продолжения..');
   repeat
      key_Enter:=readkey;
   until ord(key_Enter)= 13;
   end;

{Процедура взаимодействия кнопок}
procedure Functional (var kod: char; str, kol: byte);
begin
  kod:=readkey;
  repeat
        case kod of
            #72: begin  {стрелка вверх}
                 str:=str-1;
                 if str =0 then str:=kol;{если верхний край, вниз}
                 end;
            #80: begin  {стрелка вниз}
                 str:=str+1;
                 if str>kol then str:=1;{если нижний край, вверх}
                 end;
            #27:begin{возможность выхода по Esc}
                str:=3;
                exit;
                end;
        end;
 until kod in [#32,#27];
end;
 
{Процедура главного меню}
procedure Menyu(var kod: char; str, kol, i: byte);
begin
clrscr;
str:=1;
gotoxy(1,1);
  for i:=1 to kol do
   begin
     if i=str then
      begin
         textbackground(2);
         textcolor(1);
      end
     else
      begin
         textbackground(7);
         textcolor(0)
      end;
     gotoxy(1,i);
     write(Spisok_Glav_Menu[i]);
   end;
  writeln;
  textbackground(0);
  textcolor(15);
  write('Для выхода можно нажать Esc..');
  repeat
        Functional(kod);
    until kod in [#32, #72, #80,#27];
end;
begin
repeat
Menyu(str);{выводим меню}
 
until str = 3;
end.

Spisok_Operators: array[1..6] of string = ('1- Добавить оператора',
                                                      '2-Посмотреть операторов',
                                                      '3-Удалить оператора',
                                                      '4-Редактирование',
                                                      '5-Поиск оператора',
                                                      '6-Выход');
              Spisok_Tarifs: array[1..6] of string = ('1-Добавить тариф',
                                                      '2-Посмотреть тарифы',
                                                      '3-Удалить тариф',
                                                      '4-Редактирование',
                                                      '5-Поиск тарифа',
                                                      '6-Выход');