прикладная математика

const
           Sumb:Char='A';
var
           A,S:AnsiString;
           n,i:integer;
begin
           n:=(Length(Edit1.Text));
           if (n mod 2<>0) then inc(n);
           n:=round(n/2);
           SetLength(S,n);
           SetLength(A,n*3);
           for i:=1 to n do
           S[i]:=Sumb;
           A:=S+Edit1.Text+S;
           Edit1.Text:=A;
end;