Запись в файл

[анна2709]

нужна программа в паскале помогите пожалуйста!!!
Программа, только её нужно доделать, она записывает последнее слово в файл "test.txt" в корневом каталоге паскаля, а нужно чтобы записывала все слова, но у последнего убирала ПРЕДпоследнюю букву.

var
st, tmp : string;
i : integer;
f : text;
a : byte;
begin
st := 'nol odin dwa tri chetiri piat shest sem vosem deviat.';
writeln('Dana posledovatelnost svov:');
writeln(st);

assign(f, 'test.txt');
rewrite(f);

while length(st) > 0 do begin
a := pos(' ',st);
if a = 0 then a := pos('.',st);
tmp := copy(st, 1, a-1);
delete(st, 1, a)
end;
writeln(f,tmp);
close(f);
writeln('obrabotano i zapisano v fail!');
readln;
end.