В строке заменить все двоеточия точкой с запятой

Var s:string;
    i,k:byte;
Begin
    write('Введите строку: ');readln(s);
    For i:=1 to Length(s) do
     if s[i]=':' then
      Begin
       inc(k);
       s[i]:=';';
      End;
    writeln('Полученная строка: ',s);
    writeln('Кол-во замен = ',k);
End.

var
  Str: String;
  Count, i: Byte;
begin
  Count:=0;
  write('Строка: ');
  readln(Str);
  for i:=1 to Length(Str) do
    if Str[i] = ':' then
      begin
        Delete(Str, i, 1);
        Insert(';', Str, i);
        Inc(Count);
      end;
  writeln('Строка: ', Str);
  writeln('Кол-во замен: ', Count);
end.

var
  Str: String;
  Count, i, S: Byte;
begin
  Count:=0;
  write('Строка: ');
  readln(Str);
  while pos (':', Str) <> 0 do
      begin
        S:= pos (':', Str);
        Delete(Str, S, 1);
        Insert(';', Str, S);
        Inc(Count);
      end;
  writeln('Результат: ', Str);
  writeln('Кол-во заменí: ', Count);
end.