I got an Accept and then after a day I got email that it was rejudge
and it is Wrong Answer. What this could mean???

But, why. It performs exactly, what example says. Example of an
unclear case with "-" character.
It got Accept when I submitted it. Why I got email after a day that
it was rejudged and it is now a Wrong Solution.
It never happen to me before.

By the way, you can see my program it is in the next message of this
forum.

Thank you,
  Vladimir

Var i,n,k,nn,bo:integer;
    s,s1,s2,s3:string;
    a:array [1..100] of string[255];
    q,q1:boolean;

begin
  q1:=true;
  repeat
    s:='';q:=false;bo:=1;s1:='';
    readln(s);inc (nn);n:=0;
    for i:=1 to length(s) do
      begin
        if not q1 then
          s1:='';
        if (s[i] in ['a'..'z']) or (s[i] in ['A'..'Z']) then
          begin
            inc (n);q1:=true;
            s1:=s1+s[i];q:=false;
          end
        else
          if ((s[i-1] in ['a'..'z']) or (s[i-1] in ['A'..'Z']))and
             ((s[i+1] in ['a'..'z']) or (s[i+1] in ['A'..'Z']))and
             (s[i]<>' ') then
            begin
              inc (n);q1:=true;
              s1:=s1+s[i];q:=false;
            end
          else
            begin
              if not q then
                for k:=n downto 1 do
                  begin
                    a[nn]:=a[nn]+s1[k];
                    q:=true;
                  end;
              a[nn]:=a[nn]+s[i];inc(n);
              q1:=false;bo:=n;n:=0;
            end;
      end;
  until (eof(input));
  bo:=length (s1);
  for k:=bo downto 1 do
    if (s1[k] in ['a'..'z']) or (s1[k] in ['A'..'Z']) then
      s2:=s2+s1[k]
    else
      s3:=s3+s1[k];
  a[nn]:=a[nn]+s2+s3;
  for i:=1 to nn do
    writeln (a[i]);
end.