Сведения об экспорте товара состоят из наименования товара, страны и количества экспорта в эту страну. Дан набор из 1000 таких сведений. Найти:а) страны, в которые экспортировался данный товар, и общий объем его экспорта.б) упорядочить сведения о товарах лексикографически по первым двум буквам наименования товара — Pascal(Паскаль)

Program test;
uses crt;
type Export = record
     name : string;
     country : string;
     count : integer;
     end;
     
var data : file of Export;
     nam : Export;
     schet : integer;
begin clrscr;
schet:=0;
assign(data,'dannie');
rewrite(data);
repeat
  write('Товар: ');
  readln(nam.name);
  write('Страна: ');
  readln(nam.country);
  write('Количество: ');
  readln(nam.count);
  write(data,nam);
  schet:=schet+1;
  until schet=900;
 
  reset(data);
  while not Eof(data) do begin
  read(data, nam);
  writeln(nam.name, ' ', nam.country, ' ', nam.count);
  writeln;
  end;
  close(data);
  end.