Прога на тему: Модуль CRT с меню.

uses crt;
{массив названий пунктов меню}
const vybor:array[1..5] of string=('1-Фамилия',
                                   '2-Домашний адрес',
                                   '3-Год рождения',
                                   '4-Доп. сведения',
                                   '5-Выход');
     date:array[1..4] of string=('Иванов','ул. Пушкина, 12-125','1990','студент 5 курса университета');
procedure Menyu(var k:byte;kol:byte);
var kod: char;
    i:byte;
begin
textbackground(15);
clrscr;
k:=1;
gotoxy(5,1);
k:=1;
repeat
  for i:=1 to kol do
   begin
     if i=k then//активный пункт меню
      begin
         textbackground(7);
         textcolor(13);
      end
     else//неактивный
      begin
         textbackground(3);
         textcolor(4)
      end;
     gotoxy(18*(i-1)+1,1);
     write(vybor[i]);
   end;
  repeat
  kod:=readkey;//читаем код клавиши
  until kod in [#13, #75, #77];//допустимые Enter,стрелки влево-вправо
  case kod of
  #77: begin  {стрелка влево}
       k:=k-1;
       if k=0 then k:=kol;{если левый край, в конец}
       end;
  #75: begin  {стрелка вправо}
       k:=k+1;
       if k>kol then k:=1;{если правый край, в нaчало}
       end;
  end;
 until kod=#13;//если Enter - выход
end;
 
var k:byte;//номер пункта меню
begin
repeat
   Menyu(k,5);{выводим меню}
   case k of{выбираем стрелками действие}
   1:begin
     textbackground(15);
     clrscr;
     write(date[1]);
     readln;
     Menyu(k,5);{выводим меню}
     end;
   2:begin
     textbackground(15);
     clrscr;
     write(date[2]);
     readln;
     Menyu(k,5);{выводим меню}
     end;
   3:begin
     textbackground(15);
     clrscr;
     write(date[3]);
     readln;
     Menyu(k,5);{выводим меню}
     end;
   4:begin
     textbackground(15);
     clrscr;
     write(date[4]);
     readln;
     Menyu(k,5);{выводим меню}
     end;
   5:begin
     clrscr;
     exit;
     end;
   end;
 until k=5;//пока не пункт 5
end.