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

type
  TProduct=record
    Name:string;
    Country:string;
    Quantity:integer;
  end;
 
var
  Products:array[1..256] of TProduct;{массив товаров}
  Countries:array[1..256] of string;{массив стран-экспортеров}
  TotalCount:integer;{общий объем экспорта товара}
  i:integer;{переменная цикла}
  CountryName:string;{название страны}
  CountriesCount:integer;{счетчик количества стран}
  ProductsCount:integer;{количество товаров в массиве}
 
begin
  CountriesCount:=0;
  TotalCount:=0;
  {...считаем что массив товаров каким-либо способом заполнен...}
  readln(CountryName);
  for i:=1 to ProductsCount do
  begin
    if CountryName=Products[i].Name then
      begin
        TotalCount:=TotalCount+Products[i].Quantity;
        CountriesCount:=CountriesCount+1;
        Countries[CountriesCount]:=Products[i].Name;
      end;
  end;
  writeln('Countries list:');
  for i:=1 to CountriesCount do writeln(Countries[i]);
  writeln('Product supply count:',TotalCount);
end.