Добавить после каждой буквы "о" букву "а" в скобках - "(а)" - Pascal ABC

var s:array[1..10] of string;
    n,i,j:byte;
begin
write('Количество строк от 1 до 10 n=');
readln(n);
writeln('Введите ',n,' строк');
for i:=1 to n do
readln(s[i]);
writeln('Преобразованный текст');
for i:=1 to n do
 begin
  for j:=length(s[i])downto 1 do
  if s[i][j] in ['о','o'] then insert('(a)',s[i],j+1);//о русская и латинская
  writeln(s[i]);
 end;
end.