Описать логическую функцию. Завтра экзамен! - Pascal - Ответ 1741157

uses crt;
type vrem=record
          ch:0..23;
          mn,sc:0..59;
          end;
     FB=file of vrem;
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 i:=i+1;
   end;
 end;
close(f);
close(g);
Eq:=b;
end;
var f,g:FB;
    z:vrem;
    c:char;
    i:integer;
begin
clrscr;
assign(f,'fileF');
rewrite(f);
assign(g,'fileG');
rewrite(g);
writeln('Введите данные в файл F, окончание ввода Esc:');
i:=0;
repeat
i:=i+1;
writeln('Запись ',i);
with z do
 begin
  write('Часы=');readln(z.ch);
  write('Минуты=');readln(z.mn);
  write('Секунды=');readln(z.sc);
  write(f,z);
 end;
c:=readkey;
until c=#27;
clrscr;
writeln('Введите данные в файл G, окончание ввода Esc:');
i:=0;
repeat
i:=i+1;
writeln('Запись ',i);
with z do
 begin
  write('Часы=');readln(z.ch);
  write('Минуты=');readln(z.mn);
  write('Секунды=');readln(z.sc);
  write(g,z);
 end;
c:=readkey;
until c=#27;
clrscr;
writeln('Содержание файла F:');
seek(f,0);
for i:=0 to filesize(f)-1 do
 begin
  read(f,z);
  writeln(z.ch,' ',z.mn,' ',z.sc);
 end;
close(f);
writeln('Содержание файла G:');
seek(g,0);
for i:=0 to filesize(g)-1 do
 begin
  read(g,z);
  writeln(z.ch,' ',z.mn,' ',z.sc);
 end;
close(g);
writeln;
if Eq(f,g) then write('Файлы равны')
else write('Файлы не равны');
readln
end.