Распечатать числа, которые встречаются в первом файле, но не встречаются во втором

uses crt;
var f,g:file of integer;
    a,b,i,j:integer;
    c,d:boolean;
begin
assign(f,'filef');
rewrite(f);
assign(g,'fileg');
rewrite(g);
writeln('Введите целые числа в первый файл, окончание ввода 0');
repeat
readln(a);
write(f,a);
until a=0;
close(f);
writeln('Введите целые числа во второй файл, окончание ввода 0');
repeat
readln(a);
write(g,a);
until a=0;
close(g);
clrscr;
writeln('Содержание первого файла:');
reset(f);
while not eof(f) do
 begin
  read(f,a);
  write(a,' ');
 end;
close(f);
writeln;
writeln('Содержание второго файла:');
reset(g);
while not eof(g) do
 begin
  read(g,a);
  write(a,' ');
 end;
close(g);
writeln;
writeln('Числа, из первого файла, которых нет во втором файле:');
reset(f);
d:=false;
for i:=0 to filesize(f)-1 do
 begin
  read(f,a);
  c:=true;
  reset(g);
  j:=0;
  while(j<=filesize(g)-1)and c do
   begin
    read(g,b);
    if b=a then c:=false
    else j:=j+1;
   end;
  if c then
   begin
    d:=true;
    write(a,' ');
   end;
  close(g);
 end;
close(f);
if not d then write('Таких чисел нет');
end.