Дана строка. каждую точку замените многоточием (т.е тремя точками). в чем беда? или совсем не правильно? 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.

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.