Дана строка. Удвоить каждую встречающуюся «о» и «а» — Pascal(Паскаль)

program sdf;
const
s=['o','a'];
var l,buf:string; i,q:integer;
begin
writeln('Vvedi stroku: ');
readln(l);
for i:=1 to length(l) do
begin
if l[i] in s then
begin
insert(l[i],l,i);
end;
end;
writeln;
writeln(l);
readln;
end.