Заменить в строке ":" на "."

[Arigato]

Два раза Pos вызывать не есть хорошо.

var
  s:string;
  p: Integer;
begin
  s:='T:ex:t:';
  p := Pos (':', s);
  while p<>0 do
  begin
    s[p] := '.';
    p := Pos (':', s);
  end;
  writeln(s);
  readln
end.

Но, если на то пошло, то с Pos вообще не рационально решать данную задачу. Нужно так:

var
  s:string;
  p: Integer;
begin
  s:='T:ex:t:';
  for p := 1 to Length (s) do
    if s[p] = ':' then s[p] := '.';
  writeln(s);
  readln
end.