С клавиатуры вводится строка состоящая из отдельных слов, разделенных между собой произвольным количеством пробелов. Написать программу оставляющую между словами по 1 пробелу. Пожалуйста посчитайте пожалуйста

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