Фаил и база данных

[raymmman]

В обшем у меня задание такое:
В файле хранится информация о продукте, а именно код товара, наименование, дата поступления, обьем и срок хранения. При запуске программы вывести меню состояшее из просмотреть(сушествуюшие продукты), добавить(в список продукт) и удалить(вводится дата, и все товары с просроченным сроком удаля.тся автоматом).
Мне нужна помошь только при считывании информации с файла и занос в бд
Пока что пытался с разными файлами но чето не получалось, подскажите ошибку ЗЫ только языком попроше )))

program pract2;
uses crt;
type baza=record
kod:integer;
naim:string[30];
datp:integer;
srokhr:integer;
end;
var
bd:baza;
a,b,c,d:text;
tab:array[1..100] of baza;
i,j,l:integer;
k,s,x:integer;
st:string;
begin
clrscr;
assign(a,'G:\Practika\a.txt');
reset(a);
readln(a,x);
while not eof (a) do
begin
for s:=1 to 15 do
begin
l:=l+1;
read(a,x);
baza[l]].kod:=x;
write(x);
...

[Desha]

Занос в бд - это вообще ввод данных в базу,или дозапись в файл, с уже имеющимися данными?

Тут просмотр файла. Только бд о студентах, так что надо будет заменить на свои данные. Сведения о студентах представленны массивом (spis) записей.

procedure ww;
begin
clrscr;
reset(f);                                                        //мой файл(тескстовый)
  for i:=1 to n do                                             // n -кол-во записей
   begin

     readln(f,spis[i].name);                                //считываем
     writeln('Имя студента: ',spis[i].name);          //выводим
     readln(f,spis[i].gr);                                    //считываем
     writeln('Группа: ',spis[i].gr);                        //выводим
     readln(f,spis[i].b1);                     

     writeln('Оценки за экзамен по:');
     writeln(s[1],' ',spis[i].b1);
     readln(f,spis[i].b2);

     writeln(s[2],' ',spis[i].b2);
     readln(f,spis[i].b3);

     writeln(s[3],' ',spis[i].b3);
     writeln('Для просмотра данных о следующем студенте нажмите <Enter>');              
     readln;                                                       //жмем Ентер
   end;
  close(f);                                                       //закрываем файл
end;

Пару советов на будущее (серьезно легче будет) каждое задание из практки оформлять в отдельные процедуры, в основном тексте программы оставить только меню. И самое главное - струтура программы и комменты.

Может я Вас не верно поняла, но вот мое мнение о Вашем коде:

program pract2;
uses crt;
type
	 baza=record
	kod:integer;
	naim:string[30];
	datp:integer;
	srokhr:integer;
	end;

var
	bd:baza;
	a,b,c,d:text;       // зачем столько файлов? Вам же надо бд на одном файле сделать.
	tab:array[1..100] of baza;
	i,j,l:integer;
	k,s,x:integer;
	st:string;

Begin
	clrscr;
	assign(a,'G:\Practika\a.txt');
	reset(a);
	readln(a,x);  //считаывете х из файла. будем считать, что где-то до этого
		     // момента Вы это х ввели и записали в файл. Но зачем оно  Вам здесь?
	

while not eof (a) do
	begin
		for s:=1 to 15 do
		begin
			l:=l+1;
			read(a,x);          //Тут правильно считываете х из файла.
			
			baza[l]].kod:=x;   //Зачем baza присваиваете значение х? у Вас же есть массив 
					  //	типа записи.Должно быть tab[l].kod:=x;но и это не к чему.
					 //можно было сразу вводить в цикле tab[l].kod и не мучаться 
                                        //потом с присваиванием
			write(x);

[raymmman]

Да это вчера на больную голову сделал, сегодня переделал с типизированным файлом, заполнение-просмотр полностью работает а вот про удалении строки-товара с просроченной датой запарка...

[Desha]

А чего там не получается?

[raymmman]

Ахаха xD Вот в том то и проблема что я без понятия как вырвать строку из файла)))

[diliana]

Сообщение от raymmman

Вот в том то и проблема что я без понятия как вырвать строку из файла)))

Для этого вам надо создать отдельную подпрограмму для поиска товара по дате.
Примерно так (пишу просто - сами подгоните)

{поиск товара по дате }
procedure Poisk(var ...);
var
  x: integer;
  i:byte;
begin
  write('Poisk: ');
  readln(x); {ввести дату }
  writeln('товар:');
  for i := 1 to n do
   begin
   if tab[i].data=x then writeln(tab[i].naim);
   end;
end;