program PascalGuru;
type Tovar=record
                 naimenovanie:string[20];
                 tsena:word;
           end;
 
var f1,f2:file of Tovar;
    t1,t2:Tovar;
    b:boolean;
 
begin
assign(f1,'f1.txt'); reset(f1);
assign(f2,'f2.txt'); reset(f2);
 
b:=true;
while (not eof(f1)) do
      begin
      read(f1,t1);
      read(f2,t2);
      if t1.naimenovanie<>t2.naimenovanie then b:=false;
      if t1.tsena<>t2.tsena then b:=false;
      end;
 
if b then writeln('Komponenty sovpadaiut...')
     else writeln('Komponenty NE sovpadaiut...');
 
close(f1);close(f2);
end.