> subj
> var alf:set of char; s,w:string;i,j:integer;
> begin
> alf:=['A'..'Z','a'..'z'];
> repeat
>  readln(s);
>   for i:=1 to length(s) do begin
>   if s[i] in alf then begin
>    repeat
>      w:=w+s[i]; inc(i);
>      until not(s[i] in alf) or (i=length(s));
>      for j:=length(w) downto 1 do write(w[j]);w:='';
>    end; write(s[i]);
>   end;
>  writeln;
> until eof
> end.
> It WOrks!!!!!!!!!!!!!!!