Расставить пробелы

[dukesoteg]

Есть задача:
Строка символов представляет собой текст, слова в котором разделены одним или более пробелами. Преобразовать эту строку так, чтобы все слова разделились ровно одним пробелом, а ведущие и хвостовые пробелы отсутствовали.
Условие выполнения: Ввод/вывод должны быть выполнены с помощью файлов.

вот я тут голову ломаю совсем не выходит

P.S программа сделанная без использвования файлами, надо ее решить с использвованием их

   
var
s:string;
begin
readln(s);
while pos('  ',s)<>0 do
delete(s,pos('  ',s),1);
while s[1]=' ' do
delete(s,1,1);
while s[length(s)]=' ' do
delete(s,length(s),1);
writeln(s)
end.

и практически аналогичная задача
Дана строка, состоящая из нескольких слов, между соседними словами не менее одного пробела, за последним словом - точка. Во все слова, за первым символом, вставить пробел.

uses strings;
Var
str1,str2:array[0..50] of char;
i,k,n:integer;
begin
writeln('vvedite stroku:');
readln(str1);
n:=strlen(str1);
k:=0;
while (str1[k]<>'.') and (k<n) do k:=k+1;
n:=k-1;
str2[0]:=str1[0];
k:=0;
if str1[0]<>' ' then k:=k+1; str2[k]:=' ';
for i:=1  to n do
begin
k:=k+1; str2[k]:=str1[i];
if (str1[i]<>' ') and (str1[i-1]=' ')  then begin k:=k+1; str2[k]:=' ';end;
end;
writeln(str2);
readln;
end.