Почему программа не записывает символы в файл?

var f: file of char;
    i, j: integer;
    c: char;
begin
  assign(f, 't.txt');
  rewrite(f);
  write('Введите первое число:');
  readln(i);
   if (i=0)
    then
     begin
     writeln('файл не создан');
     Erase(f);
     Exit;
       end
    else Write(f, c);
    repeat
    write('очередное число:');
    readln (i);
     if (i<>0)
      then write(f,c)
      else break;
      until (i=0);
      seek(f,0);
      writeln;
      writeln('числа записанные в файле:');
      j:=0;
  for i := 0 to filesize(f) - 1 do
    begin
      seek(f, i);
      read(f, c);
      if not (c in ['1', '3', '5', '7', '9'])
        then begin
          seek(f, j);
          write(f, c);
          inc(j)
        end
        end;
  seek(f, j);
  truncate(f);
  close(f);
end.

var f: file of char;
    i,j,k: integer;
    c,b: char;
begin
assign(f, 't.txt');
rewrite(f);
write('Введите первый символ:');
readln(c);
if c='0' then
 begin
  writeln('файл не создан');
  Erase(f);
  Exit;
 end
else Write(f,c);
repeat
 write('очередное символ:');
 readln (c);
 if c<>'0' then write(f,c);
until c='0';
reset(f);
writeln('Содержание файла:');
while not eof(f) do
 begin
  read(f, c);
  write(c:2);
 end;
writeln;
//будем удалять символы обозначающие нечетные цифры
seek(f,0);
k:=0;
i:=0;
while i<=filesize(f)-2-k do//последнее число пока не проверяем, выйдем за файл
 begin
  seek(f,i);
  read(f,c);
  if c in ['1','3','5','7','9'] then
   begin
    k:=k+1; //считаем
    for j:=i to filesize(f)-2 do//идем вперед
     begin
      seek(f,j+1);//переставляем - сдвигаем - записи вверх на 1
      read(f,b);
      seek(f,j);
      write(f,b);
     end
   end
  else i:=i+1;//если нет вперед
 end;
seek(f,filesize(f)-1-k);//проверяем последнее, оно сдвинулась на к вверх
read(f,c);
if c in ['1','3','5','7','9']  then k:=k+1;
seek(f,filesize(f)-k);//встаем в последнее не удаленное число
truncate(f);//обрезаем файл
writeln('Удаление нечетных цифр:');
reset(f);
while not eof(f) do
 begin
  read(f,c);
  write(c:2);
 end;
close(f);
end.

var
  f: file of char;
  i: integer;
  c: char;
 
begin
  assign(f, 't.txt');
  rewrite(f);
  
  repeat
    write('Следующий символ:');
    readln(c); 
    if  not (c in['1','3','5','7','9','0','',#13]) then write(f, c)      
  until c = '0';  
  reset(f);
  writeln;
  writeln('Символы, записанные в файле:');
  for i := 0 to filesize(f) - 1   do
  begin
    seek(f, i);
    read(f, c);
    writeln(c);
  end;  
  close(f);
end.