В строке заменить все «:» на «;» и посчитать количество замен — Pascal(Паскаль)

var
  s:string;
  c:integer;
begin
  readln(s);
  c:=0;
  while pos(':',s)<>0 do
  begin
    s[pos(':',s)]:=';';
    inc(c)
  end;
  writeln(s);
  writeln('Result: ',c)
end.