сравнение столбцов

procedure TForm1.N2Click(Sender: TObject);
 var           // сравнение
  i, j, n1,n2 : integer;
  z1, z2 : str;
begin
  AssignFile(f, FN);
   AssignFile(g, FN);
  if not FileExists(FN) then ShowMessage('Файл отсутствует')
  else begin
  reset(f);
  reset(g);
  n1 := filesize(f); // n - число записей в файле f
  n2 := filesize(g); // n - число записей в файле g
 
    if n1 = n2 then
  for i := 0 to n1 do   
  begin
      seek(f, i); // позиционирование маркера на i-ю запись в файле f
      seek(g, i); // позиционирование маркера на i-ю запись в файле g
      read(f, z1);
      read(g, z2);
      if z1.a <> z2.a then edit1.Text:='разные'
       else    
         begin 
          Continue; 
          inc(j); 
         end;
    end;
    if j=n1 then edit1.text:='одинаковые';
 
  end;
  CloseFile(f);      // закрытие файла
  CloseFile(g);      // закрытие файла
 
end;

AssignFile(f, FN);
AssignFile(g, FN);

unit Unit2;
 
interface
 type str = record
      a: byte;
      m1,m2: array [1..10] of byte;
  end;
 var f,g: file of str;
 s,z: str;
 FN: shortstring = 'chisla';
 
implementation
 
end.