[mysnk]

Можно так

Код:

var
  I: Integer;
  Str: string;
begin
  I := 0;
  while I <> Length(Str) do
  begin
    I := I + 1;
    if Str[i] = 'A' then
    begin
      Str := Str[i] + Str;
      Delete(Str, I+1, 1);
    end;  
  end; 
end.