Nhập xâu kí tự S + Hãy đếm trong xâu có bao nhiêu kí tự 'm' + Thay thế kỉ tự M thành kí tự C

program oken;

uses crt;

var s: string; i,dem: byte;

begin

clrscr;

write('Nhap xau: '); readln(s);

for i:=1 to length(s) do

if s[i]='m' then

begin

dem:=dem+1;

s[i]:='C';

end;

writeln('So ki tu m trong xau: ',dem);

writeln('xau moi: ',s);

readln;

end.

uses crt;
var  st : string;
i,d : integer;
begin     d:=0;
write('Nhap xau ki tu :'); readln(st);
for i:=1 to length(st) do if st[i]='m' then d:=d+1;
write('Co ',d,' ki tu m');
for i:=1 to length(st) do if st[i]='M' then st[i]:='C';
 write(st);
readln
end.