Look at this program, I just used two strings and one longint!



program a1226;
const
     ch:set of #0..#127=['A'..'Z','a'..'z'];
var
   i:integer;
   st1,st2:string;
begin
     while not eof do begin
           readln(st1);
           st2:='';
           for i:=1 to length(st1) do
               if st1[i] in ch then st2:=st1[i]+st2 else begin
                  write(st2);
                  st2:='';
                  write(st1[i]);
               end;
           writeln(st2);
     end;
end.