Тебе надо считать строку, поменять в ней пробелы (код символа #32) на табуляторы (код символа #8, кажись) и записать результат во второй файл. Для замены можно воспользоваться функцией StringReplace...
Код:
var
S : String;
...
ReadLn(F1,S);
S := StringReplace(S,#32,#8,[rfReplaceAll]);
WriteLn(F2,S);
...