program Project17;

{$APPTYPE CONSOLE}

uses
  SysUtils;

type product=record
  name:string[20];
  price:integer;
  count:array[1..5] of integer;
end;

ft = file of product;

var f:ft;
    f1:text;

procedure input(var f:ft);
var a:product;
    i,j,n:integer;
begin
  rewrite(f);
  writeln;
  writeln('Enter count of products:');
  readln(n);
  for i := 1 to n do
    begin
      writeln;
      writeln('======',i,'===PRODUCT=======');
      write('Enter name:');
      readln(a.name);
      write('Enter price:');
      readln(a.price);
      for j := 1 to 5 do
        begin
          write('Count in ',j,' shop:');
          readln(a.count[j]);
        end;
      write(f,a);
    end;
  closefile(f);
end;

procedure min(var f:ft; var f1:text);
var a:product; i,c:integer;
begin
  reset(f);
  rewrite(f1);
  writeln;
  writeln('Enter price:');
  readln(c);
  writeln;
  while not eof(f) do
    begin
      read(f,a);
      if a.price < c then
        begin
          writeln(f1,a.name);
          writeln('Product with price < ',c,': ', a.name);
        end;
    end;
  closefile(f1);
  closefile(f);
end;

procedure find_max(var f:ft);
var a:product; i,j,min,max:integer;
    maxx:string[20];
begin
  reset(f);
  read(f,a);
  min:=a.price;
  max:=a.price;
  while not eof(f) do
    begin
      read(f,a);
      if a.price>max then begin max:=a.price; maxx:=a.name; end;
      if a.price<min then min:=a.price;
    end;
  writeln('max=',max,' min=',min);
  writeln('Product with max price: ', maxx);
  closefile(f);
end;

begin
  assignfile(f1,'text.txt');
  assignfile(f,'base.ini');
  input(f);
  min(f,f1);
  find_max(f);
  readln;
end.