Procedure divStrToWrd(s:string);
  var i,b:integer;
  divs:set of char;
  w:boolean;
  begin
  divs:=['-'];
  w:=false;
  s:=s+' ';
  for i:=1 to length(s) do
    begin
     if w then
     begin
      inc(cnt);
      wrd[cnt]:=copy(s,b,i-b);
      write(wrd[cnt]);
      w:=false;
     end
     else
    begin
    if not (s[i]in divs) then
     begin
     w:=true;
     b:=i;
     end;
    end;
    end;
  end;