Напишите, пожалуйста, функцию, которая удаляет из переданной ей символьной строки все лишние пробелы, заменяя все повторяющиеся пробелы на один пробел.

 function dele (s : string) : string;  var    l,i : integer;  begin   l := Length (s);   i := l;    while i>0  do     begin      if (s[i] = ' ') and (i<l) then       if s[i+1] = ' ' then        begin         delete (s,i,1);         i := i -1;        end;      i := i -1;     end;   Result := s;  end;   var   a : string; begin  readln (a);  writeln (dele(a)); end.