Розв’язок задачі з Абрамова №515

Всі умови | Умова: Даний файл f, містить відомості по експортованих товарах: вказується найменування товару, країна, яка імпортує товар, і обсяг поставляється партії в штуках. Знайти країни, в які експортується даний товар, і загальний обсяг його експорту. (С.А. Абрамов, Г.Г. Гнездилова,Е.Н. Капустина, М.И. Селюн. Задачи по программированию. - Вологда, 2000. - №515)

program Pr515;
type
  TExp = record // описуємо тип що буде містити відомості про товар
     name : string[20];           //назву
     state : string[20];         //країну
     count : integer;           //кількість штук
  end;

var
  f : file of TExp;
  e : TExp;
  sum:integer;    //загальна сума експорту
  name : string[20];
begin
  write('Whot wind'); readln(name);
  assign(f,'in');  //підєднуємося до файлу
  reset(f);      //ф відкриваємо на щитування
  sum := 0; // сумарна кількість товару
  while not eof(f) do     //поки не кінець файлу ф
  begin
     read(f,e); //зчитуємо нову компонету
     if e.name = name then    //якщо це той товар що ми шукаємо то
     begin
       sum := sum + e.count;  // збільшуємо суму
       writeln(e.state);     //виводимо каїну
     end;
  end;
  writeln('Total count = ',sum);
  close(f);    //закриваємо файли
end.