strings um ein bestimmtes zeichen vermindern

[Molzer]

mein problem:

jede folge von leerzeichen >1 is durch ein einzelnes leerzeichen und der anzahl der leerzeichen zu ersetzen.

das wetter ______ist...
das wetter 6ist...

Delphi-Quellcode:

procedure TForm2.Button1Click(Sender: TObject);
var f:textfile;
z,i,n,y:integer;
s:string;
begin
n:=0;
if opendialog1.execute then begin
assignfile(f, opendialog1.filename);
reset(f);
read(f, s);
z:=length(s);
 showmessage(inttostr(z));
for i := 1 to z do begin
//  while s[i] =char(32) do begin
  if s[i] =char(32) then
  n:=n+1;
  end;
  ;

  end;
  showmessage(s[i]);


    end;
      closefile(f);
  end;