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.

Answer 2

Вот так будет работать

Answer 3

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

Answer 4

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