Записи, паскаль

[Кристинаа]

Сведениями об экспортируемых товарах являются: наименование товара, страна, импортирующая товар и объем поставляемой партии в штуках. Составить список стран, в которые экспортируется данный товар и общий объем его экспорта.

[Stilet]

Наработки есть?
Ато ведь можно решить такими способами от которых у преподавателя волосы подмышками зашевеляться.

[alex_fcsm]

Заведем запись товар

Goods=record
 name,StrImp:string
 Volume:integer;

Заполняем массив с товаром

a:array[1..100] of goods;

Затем ищем определенный товар и подсчитываем импорт

kol:=0;
for i:=1 to n do
 if a[i].name='Сок' then begin
                                 kol:=kol+a[i].volume'
                                  writeln(a[i].StrTo); 
                                end;