Program r14_16;
uses crt;
const n=20;
type tcost=record
        r:byte;
         k: 0..99;
end;
rec=record
      name:string;
      cost:tcost;
end;
list=array [1..n] of rec;
var A:list;
      s,t:string;
procedure Init(var x:list);
var f:text;
      k:byte;
begin
assign(f,'D:\УЧЕБА\ практика все\vpi zzz\t1.txt');
reset(f);
for k:=1 to n do
 with x[k] do begin
 readln(f,name);
 read(f, cost.r);
 readln(f, cost.k);
end;
close(f);
end;
procedure solve (x:list; s,t:string);
var i,iz,it:byte;
      f:text;
      p,q:boolean;
begin
 i:=1;
 p:=true;
 q:=true;
  while (i<=n) and (p or q) do begin
   if x[i].name=s
t    hen begin iz:=i;
   p:=false;
  end
 else if x[i].name=t then
begin
 it:=i;
 q:=false;
end;
Inc(i);
end;
assign(f, 'a:\D:\УЧЕБА\ практика все\vpi zzz\t1.txt');
rewrite(f);
if p or q then
begin
if p then writeln(f, 'Товара',s,'в списке нет');
if q then writeln(f, 'Товара',t,'в списке нет');
end
else if x[iz].cost.r>x[it].cost.r then
writeln(f,'Товар',t,'дороже')
else
if x[iz].cost.r writeln(f,'Товар',t,'дороже')
else
if x[iz].cost.k>x[it].cost.k then
writeln(f,'Товар',s,'дороже')
else
if x[iz].cost.k writeln(f,'Товар',t,'дороже')
else writeln(f,'У товаров',s,'и',t,'цена одинаковая');
close(f);
end;
begin
Init(A);
writeln('Введите наименование первого товара');
readln(s);
writeln('Введите наименование второго товара');
readln(t);
solve(A,s,t);
end.