Pascal.Скажите, пожалуйста, что и куда добавить нужно?

дан файл, содержащий текст сформировать другой файл, содержащий нечетные строки первого файла.
Вот мой текст программы:
uses crt;
var f1,f2:text;
i,k:integer;
st:string;
Begin
assign(f1, 'd:\file1.txt');
reset(f1);
assign(f2, 'd:\file2.txt');
rewrite(f2);
While not Eof(f1) do
begin
READ(f1,st);
if length(st) mod 2 <> 0 then
writeln(f2,st,' ');
end;
close(f1);
close(f2);
end.
во второй файл не записывает эти строки.. .