Дана строка. Каждую точку замените многоточием (т.е тремя точками). В чем беда? или...

Question

Дана строка. Каждую точку замените многоточием (т.е тремя точками). В чем беда? или совсем не правильно?
var str : string;
q:integer;
k:string;
begin
writeln ('введите строку');
readln (str);k:='..';
q:=pos('.', str );
while q<>0 do
begin
insert (str,k, q );
q:=pos('.', str );
end;
writeln (str);
end.

Answer 1

Var
  str: string;
  q: integer;
  k: string;

begin
  writeln('введите строку');
  readln(str);
  k := '..';
  q := pos('.', str );
  while q <> 0 do
  begin
    insert(k, str, q );
    q := PosEx('.', str, q + 3 );
  end;
  writeln(str);
end.

Comments

q := PosEx('.', str, q + 3 ); что значит эта строка?

---

спасибо за помощь ))