Сформировать файл,содержащий список N

[dcLout]

Сформировать файл,содержащий список N наименований товаров, содержащий информацию вида (N<=25):

Наименование,вес,цена

Обеспечить следующие виды операций со списком:
а) вычисление общей(суммарной) стоимости товаров в вписке;

б)упорядочивание списка по возрастанию цены;

в)ввод некоторого наименования по запросу, поиск его и выдача полной информации о запрошенном товаре.


Кто хорошо разбирается в данной тематике. Помогите с кодом. Записи вообще ни как не даются.

[Stilet]

Я правильно понимаю что твоих попыток хоть каких-то ждать не стоит?

[dcLout]

Я даже не знаю с чего начать. Может подскажите?

[dcLout]

Могу предположить что по задаче A) нужно делать как то так.

Type Tovar = record
Naim : string[50];
Ves : real;
cena : real;
end;

var bagazh,sum : tovar; f1:text;
i,n :integer;
begin
assign(f1,'f1.txt');
reset(f1);
writeln('Введите количество товаров');
readln(n);
writeln('Введите наименование,вес,цену');
read(bagazh.naim,bagazh.ves,bagazh.cena);
sum.cena := 0;
for i:= 1 to n do 
    sum.cena := sum.cena+bagazh.cena;
    writeln('Сумма', sum.cena);
end.