Описать логическую функцию eq(f,g), проверяющую на равенство файлы f и g типа ФВ.

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, StdCtrls, Buttons, Menus;
 
type
 vrem=record
          ch:0..23;
          mn,sc:0..59;
          end;
    FB=file of vrem;
    arr=array [1..5] of vrem;
  TForm1 = class(TForm)
    St1: TStringGrid;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Edit4: TEdit;
    BitBtn1: TBitBtn;
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
    procedure N5Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
    f,g:FB;
    z:vrem;
    c:char;
    i:integer;
    a:arr;
 
implementation
 
{$R *.dfm}
function Eq(var f,g:FB):boolean;
var b:boolean;
    i,nf,ng:integer;
    v,w:vrem;
begin
reset(f);
reset(g);
nf:=filesize(f);
ng:=filesize(g);
if(nf=0)and(ng=0)then b:=true
else if nf<>ng then b:=false
else
 begin
  b:=true;
  i:=0;
  while(i<=nf-1)and b do
   begin
    seek(f,i);
    read(f,v);
    seek(g,i);
    read(g,w);
    if(v.ch<>w.ch)or(v.mn<>w.mn)or(v.sc<>w.sc)then b:=false
    else
    closefile(f);
  closefile(g);
  Eq:=b;
  end;
 
 
end;
 
   end;
 
 
 
procedure TForm1.Button1Click(Sender: TObject);
begin
i:=i+1;
a[i].ch:=strtoint(Edit1.Text);
a[i].mn:=strtoint(Edit2.Text);
a[i].sc:=strtoint(Edit3.Text);
 
st1.Cells[0,i]:=IntToStr(a[i].ch);
st1.Cells[1,i]:=IntToStr(a[i].mn);
st1.Cells[2,i]:=IntToStr(a[i].sc);
 
Edit1.Text:='';
Edit2.Text:='';
Edit3.Text:='';
 
 
 
end;
 
 
 
 
 
procedure TForm1.FormCreate(Sender: TObject);
begin
st1.Cells[0,0]:='час';
st1.Cells[1,0]:='минута';
st1.Cells[2,0]:='секунда';
end;
 
procedure TForm1.N5Click(Sender: TObject);
begin
close;
end;
 
procedure TForm1.N2Click(Sender: TObject);
begin
assignfile(f,'fileF');
rewrite(f);
assignfile(g,'fileG');
rewrite(g);
 
 
 begin
 
Eq(f,g);
Edit4.Text:='Файлы равны'
else
Edit4.text:='Файлы не равны';
read;
end;
end;
 
end.