в исходной строковой величине удвоить все символы,кроме символа "а"

спасибо большое)))

var s:string; i:integer;beginreadln(s);for i:=1 to length(s) doif s[i]='а' then write(s[i]) else write(s[i],s[i]);end.