Массив структур типа запись

const
  n = 10;
 
type
  spisok = record
    name: string;
    cost: integer;
    count: integer;
    country: string;
  end;
  mas = array[1..n] of spisok;
 
var
  s1: spisok;
  i, postavka: integer;
  a: mas;
 
begin
  for i := 1 to n do
    with s1 do
    begin
      writeln('Введите наименование');
      readln(name);
      a[i].name := name;
      
      writeln('Введите стоимость');
      readln(cost);
      a[i].cost := cost;
      
      writeln('Введите количество');
      readln(count);
      a[i].count := count;
      
      writeln('Введите страну');
      readln(country);
      a[i].country := country;
    end;
  writeln('Наименование Цена Кол-во Страна');
  for i := 1 to n do
    writeln(a[i].name:7, ' ', a[i].cost:8, ' ', a[i].count:5, ' ', a[i].country:6);
  
  for i := 1 to n do 
  begin
    if a[i].country = 'США'  then writeln('есть товар из США под номером ', i);
    if a[i].name = 'Сахар' then postavka := postavka + a[i].count;
  end; 
  if postavka > 0 then writeln('Общий объем поставок Сахара = ', postavka) else
    writeln('Поставок Сахара нет');
end.