СТРОКОВЫЙ ТИП

[христик]

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

program Project1;

uses
SysUtils;
var s:string;
k,i:integer;

Procedure R(var s:string;a:char;b:char);
var i:integer;
Begin
for i:=1 to length(s) do
if (s[i] = ':') then s[i]:=';';
End;


begin
R;
write('vvedite stroku: ');
Readln(s);
inc(k);
writeln(s); write('kolichestvo zamen: ',k);

readln;
end.

[zmey31313]

Вот так всё работает :

program Project1;

var
  s:string;
  k,i:integer;

begin
  write('vvedite stroku: ');
  Readln(s);
  k := 0;
  for i:=1 to length(s) do
    if (s[i] = ':') then
      begin
        s[i]:=';';
        k := k + 1;
      end;
  writeln('result : ' + s + #13 +'kolichestvo zamen: ',k);
readln;
end.