Обработка записей. Напечатать таблицу товаров, изготовленных на сумму более заданной величины

const
  nmax=100;
type
  shop=record
     name: string;
     count: integer;
     price: real;
   end;
var
  a: array[1..nmax] of shop;
  n,i,k: integer;
  s1,s2,min: real;
begin
  write('Введите количество наименований товара:' );
  readln(n);
  writeln('Введите данные по товару:');
  for i:=1 to n do
  begin
    writeln(i,'-й товар:');
    with a[i] do
    begin
      write('  Наименование: ');
      readln(name);
      write('  Количество: ');
      readln(count);
      write('  Цена за 1 шт.: ');
      readln(price);
    end;
  end;
  writeln('Введите искомую сумму: ');
  readln(s1);
  min:=a[1].price; k:=1;
  writeln('| Наименование |   Цена   | Количество | Общая стоимость |');
  for i:=1 to n do
    with a[i] do
    begin
      if count*price>s1 then
        writeln('| ',name:12,' | ',price:7:2,'  |  ',count:7,'   |    ',price*count:7:2,'      |');
      if price<min then 
      begin
        min:=price;
        k:=i;
      end;
    end;
  writeln('Самый дешевый товар - ',a[k].name,', его цена: ',a[k].price:6:2);
  readln;
end.