Указать ошибку в программе

uses crt;
var f,g:file of integer;
  x:integer;
procedure sapis;
begin
assign (f,'E:\1 lab\input.txt');
  rewrite(f);
  writeln('vvedite chislo');
  readln(x);
  write(f,x);
  close(f);
end;
procedure print;
   begin
    reset(g);
     writeln('chislo vhodjaschee v sapis chisla ',x);
     while not eof(g) do
       begin
         read(g,x);
         writeln(x);
       end;
      close(g);
    end;
procedure prov;
var i,c,j:byte;
  cl,n,r:integer;
begin
 rewrite(g);
 reset(f);
 read(f,x);
 writeln('vvedite kolichestvo cifr');
 readln(c);
 for i:=1 to c do
 begin
   writeln('vvedite cifru');
   readln(cl);
   n:=x;
   j:=0;
   while n<>0 do
     begin
      r:=n mod 10;
      if r=cl then
        begin
          writeln(cl,' vhodit v sapis chisla ',x);
          write(g,cl);
          j:=j+1
        end;
          n:=n div 10;
     end;
        if j=0 then writeln(cl,' ne vhodit v sapis chisla ',x);
 end;
 close(f);
 close(g);
end;
 begin
   clrscr;
 
   assign(g,'E:\1 lab\ounput.txt');
   sapis;
   prov;
   print;
   readln;
 end.