Сформировать новую строку, где те же слова разделялись бы двумя пробелами

var
  i:integer;
  s:string;
begin
  write('введите строку:');
  readln(s);
  for i:=length(s) downto 1 do 
  if s[i] in [' '] then insert(' ',s,i);
  writeln('полученная строка:',s);
end.

type astr=array of string;
procedure split(delimeter:string;s:string;var sr:astr;var l:integer);
var
  i:integer;
  t:string;
procedure additem;
begin
 if t<>'' then begin
  inc(l);
  setlength(sr,l);
  sr[l-1]:=t;
  t:='';
 end;
end;
begin
  l:=0;t:='';
  for i:=1 to length(s) do
    if pos(s[i],delimeter)=0 then t:=t+s[i] else additem;
    additem;
end;
var
  i,j:integer;
  s:string;
  b:array of string;
begin
  write('введите строку:');
  readln(s);
  split(' ',s,b,i);
  s:='';
  for j:=0 to i-1 do begin s:=s+b[j];if j<i-1 then s:=s+'  '; end;
  writeln('полученная строка:',s);
end.