Обработка строковых величин

var S:string;
    i,p:integer;
begin
  writeln('Введите строку ');
  readln(S);
  for i:=1 to length(S) do
    begin
      repeat
        p:=Pos('  ',S);
        if p>0 then Delete(S,p,1);
      until p=0;
    end;
  writeln('Получившая строка: ',S);
  readln;
end.

var
a:string;
i:integer;
begin
readln(a);
for i:=length(a)-1 downto 1 do
if (a[i]=' ')and (a[i+1]=' ')then delete(a,i,1);
writeln(a);
readln;
end.

var S, ret:string;
    i,p:integer;
begin
  writeln('Введите строку ');
  readln(S);
  ret := '';
  p := 0;
  for i:=1 to length(S) do
    begin
       if(s[i] <> ' ')then begin
        ret := ret + s[i];
        p := 0;
       end else begin
        if p = 0 then begin
            ret := ret + s[i];
            inc(p);
        end;
       end;
       
    end;
  writeln('Получившая строка: ',ret);
  readln;
end.

ret: = ret + s[i];

program sd_sk;
uses
    crt;
var
   s:string;
begin
 clrscr;
 writeln('Stroka otdelyaemaya probelami: ');
 readln(s);
 s:=s+'  ';
 while pos('  ',s)<>0 do
  begin
   delete(s,pos('  ',s),1);
   if s[1]=' ' then delete(s,1,1);
  end;
 writeln(s);
 readln;
end.

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