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

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.