Procedure FullStory(data:TData; ns:integer);
var id:integer;
    ch:char;

Begin clrscr;
if (ns = 0) then
                Begin
                PrintLine;
                PrintHead(Yellow,32,'ПРОСМОТР ДАННЫХ');
                PrintHead(LightGreen,6,'Управление: клавиши стрелок вверх/вниз, Esc - выход в основное меню');
                PrintLine;
                PrintHead(Red,6,'ОШИБКА #000: Файл базы данных не загружен или отсутствует информация');
                ReturnMainMenu; {Возврат в главное меню}
                end
            else
                Begin
                id:=1;
                Repeat clrscr;
                PrintLine;
                PrintHead(Yellow,32,'ПРОСМОТР ДАННЫХ');
                PrintHead(LightGreen,6,'Управление: клавиши стрелок вверх/вниз, Esc - выход в основное меню');
                PrintLine;

                With Data[id] do
                     Begin
                     TextColor(Cyan); Write(' Номер записи: '); TextColor(Yellow); GotoXY(30,WhereY); Writeln(id,' из ',ns);
                     PrintLine;
                     TextColor(Cyan); Write(' Марка: '); TextColor(Yellow); GotoXY(30,WhereY); Writeln(Maker);
                     TextColor(Cyan); Write(' Модель:'); TextColor(Yellow); GotoXY(30,WhereY); Writeln(Model);
                     TextColor(Cyan); Write(' Комлектация: '); TextColor(Yellow); GotoXY(30,WhereY); Writeln(Grade);
                     TextColor(Cyan); Write(' Тип кузова: '); TextColor(Yellow); GotoXY(30,WhereY); Writeln(Types);

                     With Engine do
                          Begin
                          TextColor(Cyan); Write(' Вид топлива: '); TextColor(Yellow); GotoXY(30,WhereY); Writeln(Fuel_Type);
                          TextColor(Cyan); Write(' Мощность двигателя, л.с.: '); TextColor(Yellow);
                          GotoXY(30,WhereY); Writeln(Power);
                          TextColor(Cyan); Write(' Объём двигателя, см^3: '); TextColor(Yellow);
                          GotoXY(30,WhereY); Writeln(Volume);
                          TextColor(Cyan); Write(' Расположение цилиндров: '); TextColor(Yellow);
                          GotoXY(30,WhereY); Writeln(Cylinders)
                          end; {End with engine}

                     Writeln;
                     TextColor(Cyan); Writeln(' Расход топлива, л/100 км: ');

                     With Consumption do
                          Begin
                          GotoXY(1,WhereY); TextColor(Cyan); Write(' По городу: '); TextColor(Yellow); Write(City:4:1);
                          GotoXY(32,WhereY); TextColor(Cyan); Write(' По трассе: '); TextColor(Yellow); Write(Track:4:1);
                          GotoXY(63,WhereY); TextColor(Cyan); Write(' Смешанный: '); TextColor(Yellow); Writeln(Mixed:4:1);
                          end; {End with Consumption}
                     Writeln;

                     TextColor(Cyan); Write(' Трансмиссия: '); TextColor(Yellow); GotoXY(30,WhereY); Writeln(Transmission);
                     TextColor(Cyan); Write(' Тип привода: '); TextColor(Yellow); GotoXY(30,WhereY); Writeln(Drive);
                     TextColor(Cyan); Write(' Цвет: '); TextColor(Yellow); GotoXY(30,WhereY); Writeln(Color);
                     TextColor(Cyan); Write(' Год выпуска: '); TextColor(Yellow); GotoXY(30,WhereY); Writeln(Year);
                     TextColor(Cyan); Write(' Стоимость, руб.: '); TextColor(Yellow); GotoXY(30,WhereY); Writeln(Price);
                     PrintLine;
                     end; {End with data}
                {----- Управление Start -----}
                Ch:=Readkey; {Считываем ASCII-код клавиши}
                {#72 - стрелка вверх / #80 - стрелка вниз}
                if (Ch in [#72,#80]) then
                     Case Ch of
                          #80:Begin {Стрелка вниз}
                          Inc(id); {Определяем номер элемента в массиве}

                          {Если элемент был последним, то возвращаемся к первому}
                          if (id > Ns) then id:=1;{Первый элемент массива}
                          end;
                          #72:Begin {Стрелка вверх}
                          Dec(id); {Определяем номер элемента в массиве}

                                                  {Если элемент был первым, то возвращаемся к последнему}
                                                  if (id < 1) then id:=Ns;
                                                  end;
                                         end; {Case Ch}
                Until (Ch = #27); {Клавиша "Esc"}
                {----- Управление End -----}
                end; {end else}
PrintMainMenu; {Возврат в основное меню}
end;