Вставка символов в строку со сдвигом последующих

for i:=length(s) downto 1 do
if s[i]='q' then insert('u',s,i+1);

var
s:string;
i:Integer;
f:text;
begin
Assign (f,'f.txt');
Reset(f);
Read(f,s);
Writeln('ischodnay stroka');
Write(s);
Writeln;
Writeln;
writeln('posle');
  for i:=1 to length(s) do
  begin
  if s[i]='q' then insert(' u',s,i+1);
  Write(s[i]);
  end;
Readln;
end.

for i:=1 to length(s) do
  begin
  if s[i]='q' then insert(' u',s,i+1);

for i:=length(s) downto 1 do
if s[i]='q' then insert('u',s,i+1);

var
s:string;
i:Integer;
f:text;
begin
Assign (f,'f.txt');
Reset(f);
Readln(f,s);
Close(f);
Writeln('ischodnay stroka');
Writeln(s);
writeln('posle');
for i:=length(s) downto 1  do
if s[i]='q' then insert('u',s,i+1);
Write(s[i]);
end.

Write(s);