[SooM]

Добрый вечер,ночь.
Помогите с задачкой: Вводим строку все встречающейся в ней буквы "А" нужно переставить в начало.
Буду благодарен за помощь.

[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. 

[SooM]

Большое спасибо !