Изменить в предложении все буквы «а» на 3 буквы «б» — Pascal(Паскаль)

uses crt;
const
   w1='a';
   w2='bbb';
var
   s:string;
   i:integer;
begin
clrscr;
write('Stroka: ');
readln(s);
    while Pos(w1,s)<>0 do begin
      i:=Pos(w1,s);
         Delete(s,i,Length(w1));
      Insert(w2,s,i);
    end;
writeln('New Stroka: ',s);
readln;
end.