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

Var s,s1:string; i:integer;
begin
write('s='); readln(s);
s1:=s[1];
for i:=2 to length(s)-1 do
 if (s[i-1]<>' ')and(s[i]=' ')and(s[i+1]<>' ')
   then s1:=s1+'  ' else s1:=s1+s[i];
s1:=s1+s[length(s)];
writeln(s1);
end.

Пример работы программы:
s=Мама мыла  раму, а   Даша   мыла Катю.
Мама  мыла  раму,  а   Даша   мыла  Катю.