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

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

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

Это функция в Pascal ABC, которая в отличии от Pos производит поиск не с начала с строки, а с позиции, указанной третьим аргументом.

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

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.