нужно доделать. на паскале

[ddeman666]

Экспорт. Создайте базу данных содержашию сведенья об экспортируемых товарах: указывается наименование товаров, страна, импортирующая товар, и объем поставляемой партии. Составьте программу управления базой данных сс операциями: Добавление, просмотр, удаление и редактирование записей, выход.
program tovar;
uses crt;
type
onetovar=record
name,strana:string[15];
obyem:integer;
end;
var
f:file of onetovar;
n,i,k:integer;
isk:string[15];
found:boolean;
begin
assign(f,'tovar.dat');
k:=0;
if file exists('tovar.dat') then
begin
reset(f);
while not eof (f) do
begin
k:=k+1;
read(f,tovar[k]);
end;
close(f);
end;
repeat
clrscr;
writeln('----------');
writeln('1.äîáàâëåíèå');
writeln('2.ïðîñìîòð');
writeln('3.óäàëåíèå');
writeln('4.ðåäàêòèðîâàíèå çàïèñåé');
writeln('5.âûõîä');
writeln('----------');
write('âûáåðèòå äåéñòâèå');
readln(n);
case nof
1:begin
write('ââåäèòå íàçâàíèå');
readln(isk);
found:=fals;
for i:=1 to k do
if tovar[i] name:=isk then
found:=true;
writeln('åñòü òàêîé òîâàð');
break;
end;
if k:=100 then
write('ñïð. ïåðåïîëíåí');
else
begin
k:=k+1;
tovar[k].name:=isk;
write('ñòðàíà');

[ROMA2PVT]

бесплатно бд делать никто не будет.
но вот пример.
http://www.ref.by/refs/67/15601/1.html
Всё что вам нужно.