[Bargest]

while not Eof(fout) do

А не подумал, что при создании файла (rewrite) он пуст и, как следствие, его конец достигнут сразу?
Нужно не до конца нового файла писать, а столько, сколько данных надо.