Удалить из файла четные элементы

Program Variant_4; 
uses crt; 
var f:file of integer; 
i,k1,k2,k,a,b:integer; 
begin 
 
assign(f,'file'); // назначает файловой переменной имя внешнего файла 
rewrite(f); 
write('Введите число:'); 
ReadLn(a); 
If (a=0) Then Begin 
WriteLn('Файл не создан'); 
Erase(f); //cтирает внешний файл с диска 
End 
Else begin 
Write(f, a); 
 
repeat 
write('Введите число:'); 
read(a); 
if a<>0 then write(f,a); 
until a=0; 
//-------------------вывод на экран 
write('Исходный файл:'); 
reset(f); 
while not eof(f) do 
begin 
read(f,a); 
write(a,' '); 
end; 
writeln; 
 
if filesize(f)<2 then 
begin 
writeln('Поиск невозможен,т.к. введено менее двух чисел'); 
close(f); 
exit; 
end; 
 
//======================================================================================= 
write('Чётные элементы: '); 
seek(f,0); 
while not eof(f) do 
begin 
read(f,a); 
if ( a mod 2 = 0 )then 
write(a,' '); 
end; 
//-------------------------------------------------------------------------------------— 
writeln; 
write('Оставшиеся элементы: '); 
writeln; 
seek(f,0); 
 
end; 
end.

begin
  WriteAllText('file.txt',ReadlnString('Введите набор чисел (через пробел)').ToIntegers.
    Where(v -> odd(v)).JoinIntoString(' '));
end.

begin
  WriteAllText('file1.txt', ReadlnString('Введите набор чисел (через пробел)')); // ввел числа в файл
  WriteAllText('file1.txt', ReadAllText('file1.txt').ToIntegers.Where(v -> odd(v)).JoinIntoString(' ')); // перезаписал файл, оставив только нечетные числа
end.

begin
  WriteAllText('file1.txt', ReadlnString('Введите набор чисел (через пробел)'));
  WriteAllText('file1.txt', ReadAllText('file1.txt').ToIntegers.Where(v -> odd(v)).Print.JoinIntoString(' '));//Print выводит на экран
end.