Проблема с задачей :(

[fadea]

Вот встал в ступор с данной задачей : Вводится строка. Добавить ей в начало и в конец минимально возможное одинаковое количество букв A, чтобы ее длина стала как минимум в 2 раза больше.
Как я понел , сначало надо подсчитать колличество символов , затем разделить их на два и прибавить это число букв А в начало и конец строки
Ничтожная часть кода :

var s:string;
i,count:integer;
f:extended;
begin
s:=edit1.Text;
count:=0;
for i:=1 to length(S) do
inc(count); //(узнали колличество символов в строке)
begin
count:=(trunc(count/2)+1-2*ord(count<0));

как теперь заменить count на A?

[Min]

var s:string;
len:integer;
begin
s:=edit1.Text;
len:=s.length;
while (s.length<len*2)
s:='A'+s+'A';
edit1.Text:=s

[fadea]

Спасибо , уже жумал останавливаться на :
var l,i:integer;
begin
l:=length(edit1.text);
for i:=0 to (l div 2) do
edit1.text:='A'+edit1.text;
for i:=0 to (l div 2) do
edit1.text:=edit1.text+'A';
end;
- что не есть полным решением задачи

[evg_m]

r:=length(s)*2;
while length(s) < r do s:='A'+s+'A';