program star;

  type maxstring = string[255];

  procedure ChangeInStar(VAR str: maxstring);  {changes spaces in asterisks}
  var i, max: INTEGER;
  begin
    max := Length(str);
    for i:= 1 to max do
       if str[i] = ' ' then str[i] := '*';
  end;

var mystring: string[64];

begin

  mystring := 'Gone with the wind';
  writeln('before : ', mystring);
  {$V-}
  ChangeInStar(mystring);
  {$V+}
  writeln('after  : ', mystring);

end.