Заполнить массив «Товар», содержащий сведения об экспортируемых товарах

type
  tovar=record
    name: string[25];
    country: string[25];
    count: integer;
  end;
var
  a: array[1..100] of tovar;
  n,i,k,sum: integer;
  str: string[25];
begin
  write('Сколько всего наименований товара? ');
  readln(n);
  for i:=1 to n do
    with a[i] do
    begin
      writeln(i,'.');
      write('  Наименование товара: ');
      readln(name);
      write('  Страна, импортирующая товар: ');
      readln(country);
      write('  Объем партии (шт.): ');
      readln(count);
    end;
  writeln('Наименование товара      Страна-экспортер         Партия (шт.)');
  writeln('--------------------------------------------------------------');
  for i:=1 to n do
    with a[i] do
      writeln(name,' ':25-length(name),country,' ':25-length(country),count);
  writeln;
  writeln('Введите наименование искомого товара: ');
  readln(str);
  k:=0; sum:=0;
  writeln('Список стран, импортирующих товар:');
  for i:=1 to n do
    if a[i].name = str then
    begin
      inc(k);
      writeln(k,'. ',a[i].country);
      sum:=sum+a[i].count;
    end;
  if k=0 then writeln('Нет такого товара') else
    writeln('Общий объем импортируемого товара = ',sum,' шт.');
end.