типизированные файлы

uses crt;
var f1,f2:file of char;
    a,b:char;
    n,i,k:integer;
begin
clrscr;
assign(f1,'file1');
rewrite(f1);
assign(f2,'file2');
rewrite(f2);
write('Размер файлов:');
readln(n);
for i:=1 to n do
 begin
  write('a=');
  readln(a);
  write(f1,a);
  write('b=');
  readln(b);
  write(f2,b);
 end;
clrscr;
writeln('Содержание файла F1:');
reset(f1);
while not eof(f1) do
 begin
  read(f1,a);
  write(a,' ');
 end;
writeln;
close(f1);
reset(f2);
writeln('Содержание файла F2:');
reset(f2);
while not eof(f2) do
 begin
  read(f2,a);
  write(a,' ');
 end;
writeln;
close(f2);
writeln('Номера компонент файлов, которые отличаются:');
reset(f1);
reset(f2);
k:=0;
for i:=0 to filesize(f1)-1 do
 begin
  seek(f1,i);
  read(f1,a);
  seek(f2,i);
  read(f2,b);
  if a<>b then
   begin
    k:=1;
    write(i,' ');
   end;
 end;
close(f1);
close(f2);
if k=0 then write('Все компоненты совпадают');
readln
end.

Reset(F);Reset(G);
  b:=true;
  while (not Eof(F)) and (not Eof(G)) do
  begin
    Read(F,k);
    Read(G,d);
    if k<>d then
    begin
      b:=false;
      q:=FilePos(F);
      writeln('fili otlich v posicii ',q);
    end;
  end;
  if b=True then writeln('faili sovpadaut');

write(i+1,' ');