При решении задачи использовать файл

[ElenaO]

Уважаемые программисты.Помогите пожалуйста немного подправить программу.
Вот дана задача:Дана строка символов. Группу символов, разделенную с одной или с обеих сгорон одним или несколькими пробелами и не содержащую внутри себя пробелов, назовем словом.
Напечатать строку из последовательности слов в обратном порядке (то есть первым- последнее слово, затем предпоследнее и т.д.). Между словами сделать один пробел.

При решении задачи использовать файл,созданный в блокноте.
Я написала программу,но без файла.Вот:
Program z1;
Uses crt;
Var
S,ss: string;
I,n: integer;
Begin
Clrscr;
Writeln('Vvedite frazu');
Read (s);
n:=1;
ss:='';
if s[length(s)]<>' ' then s:=s+' ';
For I:= 1 to length(s) do
If s[i]=' ' then
Begin
insert(copy(s,n,i-n)+' ',ss,1);
n:=i+1;
End;
Writeln(ss);

End.
Не знаю как использовать файл.Помогите пожалуйста

[ElenaO]

Никто не знает как????

[ByAlex]

Сообщение от ElenaO

Никто не знает как????

Сейчас посмотрим!

[ByAlex]

Результат нужно вывести на экран или переписать в файл?