Помогите с написанием 2 БД, использование типиз. ф. и дин. памяти Опции

[Михаил]

Уважаемые люди прошу помочь написать базу данных с использованием типизированных файлов и эту же базу данных переделать с использованием динамической памяти.
База данных должна представлять собой.
1) ввод данных (запись)
2) просмотр
3) поиск

[volvo]

А как её построение, так сказать, перестроить на динамическую память?

Что-то в этом роде: меняется только основной блок программы, переносим массив в "кучу" (динамическую память)...

var
  c:byte;
  pa:^ARec;
Begin
  New(pa);
  repeat
    Clrscr;
    writeln('Что сделать?'); writeln;
    writeln('1. Ввод базы вручную');
    writeln('2. ввод базы из файла');
    writeln('3. сохранение базы в файле');
    writeln('4. Вывод базы на экран');
    writeln('5. поиск по имени');
    writeln('6. Поиск по номеру'); writeln;
    writeln( 'ВЫХОД - нажмите Esc!');
    c:=ORD(readkey);
    case c of
      49: EnterBD(pA^); { И разыменовываем все указатели }
      50: ReadBD(pa^);
      51: SaveBD(pa^);
      52: PrintBD(pA^);
      53: NAM(pA^);
      54: NUM(pA^);
    end;
  Until c=27;
  Dispose(pa);
end.