В строке заменить все двоеточия (:) точкой с запятой (;). Посчитать количество замен. (программа на Паскаль)

Program Praktik10;
Uses crt;
Var s:string; i,k,n:integer;
Begin
  Write('Введите строку');
  write;
  Read(S);
  n:=Length(S);k:=0;
  Writeln('Новая строка');
  for i:=1 to n do
    begin
      if s[i]=':' then
          begin
            s[i]:=';'; k:=k+1
          end;
      write(s[i]);
    end;
  Writeln;
  Write('Количество замен', k);
  Readkey
End.

var
  str: string;
  i,k: integer;
begin
  write('Введите строку: ');
  readln(str);
  k:=0;
  for i:=1 to length(str) do
    if str[i]=':' then
    begin
      str[i]:=';';
      inc(k);
    end;
  writeln(str);
  writeln('Количество замен = ',k);
  readln;
end.