Составить программу определяющую сколько букв "с" в данном слове

Var a,b,c:integer;
    d:string;
   begin
 writeln('введите слово ');
 readln(d);
 b:=0;
 for a:=1 to length(d) do begin
 if d[a]='с' then b:=b+1;
 end;
 writeln('количество символов "с" в данном слове ', b);
 end.

Program z_1;
var st,st1:string;
i,sum:integer;
begin
writeln('Введите Вашу строку');
readln(st);
st1:='с';
for i:=1 to length(st) do 
if pos(st1,st[i] ) <> 0 then inc(sum); 
writeln('ответ = ',sum);
end.