Паскаль. Записи.

[HailMe]

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

PHP код:

program lab9;
       type import=
       record
         kol:real;
       estr:string; //Страны експорт
       istr:string;
       naz:string //Название товара
        end;
 
        
          var a:array [1..255] of import;
              i,n:integer;
  begin
       writeln ('Введите количество импортирующих стран');
       readln (n);
       writeln ('Введите названия стран, товаров и объём экспорта');
       for i:=1 to n do
       with a[i] do begin
       readln (estr);
       readln (naz);
       readln (kol);
       end;
 
       for i:=1 to n do      //Вывод списка
       with a[i] do
       writeln (estr,' ',naz,' ',kol);
 
    
       end; 


Сделал до этого момента, далее застыл. Помогите, пожалуйста.

[MihalNik]

readln(tov);total:= 0;

в цикл:

if (naz=tov) then begin writeln (estr);  total:= total+kol;end;

[HailMe]

Это же сумма, а еще нужно составить список экспортирующих стран. Ведь выходит так, что несколько видов товаров в первом списке, и нам нужно сопоставить со списком экспортирующим, красиво вывести и потом считать сумму.

[kventin_zhuk]

что значит составить список? вы вводите информацию о странах и экспортируемых товарах, а дальше вводите какой-нибудь товар, а вам выводит все страны, которые экспортируют этот товар. Так? или нужно создать массив из таких элементов?

[MihalNik]

Конечно, дополнительно ведется отдельный массив, там же могут быть повторения. Вложить цикл с проверкой и выводить страну только при отсутствии в массиве. Просто нет проверки повторений при вводе данных.