Описать функцию,которая удаляет из строки все лишние пробелы

function f(st: string): string;
var i: integer;
begin
   repeat
      inc(i);
      if (st[i]=' ') and (st[i+1]=' ') then begin
         delete(st,i+1,1);inc(i,-1);
      end;
   until i=length(st)-1;
   if st[length(st)]=' ' then delete(st,length(st),1);
   f:=st;
end;

uses crt;
var s: string;
 
function DelProbel (ss: string): string;
var i,l: byte;
begin
l:=length(ss);
if ss[l]=' ' then
   repeat
   delete(ss,l,1);
   dec(l);
   until ss[l]<>' ';
for i:=l downto 1 do
    if (ss[i+2]=' ') and (ss[i+1]=' ') and (ss[i]=' ')
       then delete(ss,i,1);
DelProbel:=ss;
end;
 
begin
write('s='); readln(s);
write('s=',DelProbel (s));
end.

uses crt;
function f(st: string): string;
var i: integer;
begin
while(st[1])=' ' do delete(st,1,1);
while(st[length(st)])=' ' do delete(st,length(st),1);
while pos('  ',st)>0 do delete(st,pos('  ',st),1);
f:=st;
end;
var s:string;
begin
writeln('Введите строку с лишними пробелами');
read(s);
s:=f(s);
write(s)
end.

uses crt;
var s: string;
 
function DelProbel (ss: string): string;
var i,l: byte;
begin
l:=length(ss);
if ss[l]=' ' then
   repeat
   delete(ss,l,1);
   dec(l);
   until ss[l]<>' ';
for i:=l downto 1 do
    begin
    if (ss[i+2]=' ') and (ss[i+1]=' ') and (ss[i]=' ')
       then delete(ss,i,1);
    if (ss[i] in ['(','{','[']) and (ss[i+1]=' ')
       then delete(ss,i+1,1);
    end;
DelProbel:=ss;
end;
 
begin
write('s='); readln(s);
write('s=',DelProbel (s));
end.