Дан файл целых чисел. Записать в другой файл те элементы исходного файла, у которых ровно три четных делителя

Var f1,f2:text;
       i, j, n, k, x: integer;
 
Begin
 
    Assign(f1, 'file1.txt'); 
    Rewrite(f1);
    Readln(n);
    
    for i:=1 to n do
    begin
        readln(x); 
        writeln(f1,x);
    end;
    close(f1); 
 
    Reset(f1);
    Assign(f2, 'file2.txt'); 
    Rewrite(f2);
    
    k:=0;
    While not eof(f1) do
    Begin
        Readln(f1,x);
        for i:=2 to x do
          If (x mod i=0) and (i mod 2=0) then inc(k);
          if k=3 then Writeln(f2,x); 
    End;
    Close(f1); 
    Close(f2);
    Writeln;
    
    Writeln('Второй файл содержит числа:');
    Reset(f2);
    While not eof(f2) do 
    Begin
        Readln(f2,x);
        Writeln(x); 
    End;
    
End.

//функция определяет есть ли 3(иди больше) четных делителя
function del(a:integer):boolean;
var f:boolean;
    x,k:integer;
begin
x:=2;
k:=0;
while x<=a do
 begin
  if a mod x=0 then inc(k);
  x:=x+2;
 end;
del:=k>=3;
end;