program Goods;

type
Good = record
name: string;
price: real;
quantity: integer;
supplier: string;
end;

var
goodsFile: file of Good;
good1, good2, good3: Good;
companyName: string;

begin
assign$goodsFile{,}^{\prime }goods.tx{t}^{\prime }$;
rewrite$goodsFile$;

good1.name := 'T-shirt';
good1.price := 15.99;
good1.quantity := 100;
good1.supplier := 'Fashion House';

good2.name := 'Smartphone';
good2.price := 499.99;
good2.quantity := 50;
good2.supplier := 'Tech World';

good3.name := 'Sneakers';
good3.price := 79.99;
good3.quantity := 75;
good3.supplier := 'Footwear Co.';

write$goodsFile,good1$;
write$goodsFile,good2$;
write$goodsFile,good3$;

writeln${}^{\prime }Enteracompanynametofindoutwhichgoodsitsupplies{:}^{\prime }$;
readln$companyName$;

reset$goodsFile$;
while not eof$goodsFile$ do
begin
read$goodsFile,good1$;
if good1.supplier = companyName then
begin
writeln$good1.name{,}^{\prime }-Price{:}^{\prime },good1.price:0:2{,}^{\prime }Quantity{:}^{\prime },good1.quantity$;
end;
end;

close$goodsFile$;
end.