Вывести сведения о товарах, проданных продавцом, и определить товар с максимальной стоимостью

const
  n = 10;
 
type
  product = record
    seller, the_Name: string[128];
    Quantity: integer;
    Price: real;
    date_of_sale: string[10];
  end;
 
var
  x: array[1..n] of product;
  max, i, k: integer;
 
begin
  max := 1;
  for i := 1 to n do
  begin
    write('Введите фамилию продавца: ');
    readln(x[i].seller);
    write('Введите название товара: ');
    readln(x[i].the_Name);
    write('Введите цену товара: ');
    readln(x[i].Price);
    write('Введите количество товара: ');
    readln(x[i].Quantity);
    write('Введите дату продажи товара: ');
    readln(x[i].date_of_sale);
    if x[i].seller = 'Иванов' then
      inc(k);
    if x[i].Price > x[max].Price then
      max := i;
  end;
  writeln('Количество товаров, проданных продавцом "Иванов": ', k);
  writeln('Товар с максимальной стоимостью: ', x[max].the_name);
end.