Связка символов

[Snuppy]

Пожалуйста помогите

Введена связка символов. Присоединить в ее начале и в конце одинаковое количество минимально возможных буквенных А, чтобы её длина стала по крайней мере 2 раза больше.

Пример:
Input: hello
Result: AAAhelloAAA


Спасибо

 

[etc]

В чем трудности?

 

[Snuppy]

код:

uses crt;
var s:string;
i,n:integer;
begin
clrscr;
write('s: ');readln(s);
n:=length(s);
repeat
s:='A'+s+'A';
until length(s)>=2*n;
write('S1: ',s);
readln
end.

преобразовать на речь DELPHI

правильно?

var s:string;
i,n:integer;
begin
S:=inp.Text;  //readln virkni;
n:=length(s);
repeat
s:='A'+s+'A';
until length(s)>=2*n;
result.Caption:= s;	//writeln rezultātu
end;

 

[etc]

правильно?

А тест что говорит?