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