Вычислить четные числа в файле с помощью рекурсивной процедуры

program project1;
 
{$mode objfpc}{$H+}
 
uses
  {$IFDEF UNIX}{$IFDEF UseCThreads}
  cthreads,
  {$ENDIF}{$ENDIF}
  Classes, SysUtils, CustApp
  { you can add units after this };
 
type tip=file of integer;
 
  { TMyApplication }
 
 
 procedure file_import (var createfile:tip);
 var i,x:byte;
 begin
 assign(createfile,'data.dat');
 rewrite(createfile);
 x:=0;
 for i:=1 to 10 do begin
 inc(x);
 write(createfile,x);
 
 end;
close(createfile);
 end;
 
 
 
procedure file_output (var createfile:tip);
var count:byte;
x:integer;
begin
write('file= ');
assign(createfile,'data.dat');
reset(createfile);
for count:=1 to 10 do begin
read(createfile,x);
write(x,' ');
end;
close(createfile);
end;
 
 
 procedure chet (var createfile:tip);
 var sum,x:integer;
 begin
 sum:=0;
assign(createfile,'data.dat');
reset(createfile);
 writeln;
 write('sum= ');
 if not eof(createfile) then
 begin
 read(createfile,x);
        if x mod 2=0 then begin
        sum:=sum+x;
        end;
 chet(createfile);
 end;
 writeln(sum);
 close(createfile);
 end;
 
var
createfile:tip;
begin
file_import(createfile);
chet(createfile);
file_output(createfile);
readln;
end.

procedure chet (var createfile:tip);
  procedure Recurse;
  var
    x: integer;
  begin
    if eof(createfile) then
      exit;
    read(createfile, x);
    if условие, которое требуется then
    begin
      writeln(x);
    end;
    Recurse;
  end;
begin
  assign(createfile, 'jhjgjh');
  reset(createfile);
  Recurse;
  close(createfile);
end;

procedure chet (var createfile:tip);
procedure recursive(var sum:integer);
   var x:integer;
   begin
   if not eof(createfile) then
   begin
   read(createfile,x);
 
   if x mod 2=0 then
   sum:=sum+x;
   writeln(x);
 
   Recursive(sum);
   end;
end;
 var sum:integer;
   begin
   writeln;
   write('sum= ');
   assign(createfile, 'data.txt');
   reset(createfile);
   writeln(sum);
   close(createfile);
   end;

procedure chet (var createfile:tip);
procedure recursive(var sum:integer);
   var x:integer;
   begin
   sum:=0;
   if not eof(createfile) then
   begin
   read(createfile,x);
   if x mod 2=0 then
   sum:=sum+x;
   writeln(x);
   Recursive(sum);
   end;
end;
 var sum:integer;
   begin
   writeln;
   write('sum= ');
   assign(createfile, 'data.txt');
   reset(createfile);
   recursive(sum);
   writeln(sum);
 
   close(createfile);
   end;

program RecRecRec;
 
type
  tip = file of integer;
const
  asFileName = 'Set.dat';
 
  procedure chet(var createfile: tip);
 
    procedure Recurse;
    var
      x: integer;
    begin
      if EOF(createfile) then
        exit;
      Read(createfile, x);
      if not odd(x) then
      begin
        writeln(x);
      end;
      Recurse;
    end;
 
  begin
    Assign(createfile, asFileName);
    reset(createfile);
    Recurse;
    Close(createfile);
  end;
 
var
  f: tip;
  i: integer;
begin
  Assign(f, asFileName);
  rewrite(f);
  for i := 0 to 21 do
    Write(f, i);
  Close(f);
  chet(f);
end.