Записи. Даны два файла записей F1 и F2 типа Товар=record наименование:string[20]; цена: word; end; Определить совпадают ли компоненты файлов F1 и F2 — Pascal(Паскаль)

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.