Дана строка, состоящая из слов, разделенных пробелами (одним или несколькими). Вывести строку, содержащую эти же слова, разделенные одним пробелом

var   i:integer;   s,t:string;   f:boolean; begin writeln ('Введите строку'); readln(s); f:=false; for i:=1 to length(s) do   begin   if (f=false) or (s[i]<>' ') then     begin     t:=t+s[i];     if s[i]=' ' then       f:=true       else f:=false;     end;   end; writeln(t); end.