Задачи к практической работе

Подсчитать сколько букв а в слове?
Program aaa;
var s: string; k, i: integer;
begin
readln(s);
for i:=1 to length(s) do
if s[i]='а' then k:= k+1;
write (k);
end.

Подсчитать сколько букв  в слове и четное или нечетное количество?
Program aaa;
var s, c: string; i: integer;
begin
readln(s,c);
write(length(s)+length(c),' символов');
if (length(s)+length(c)) mod 2 = 0 then writeln(', чётное количество.')
else writeln(', нечётное количество.');
end.
Заменить буквы "а" на буквы" б" Подсчитать сколько букв заменили
Program aaa;
var s: string; k, i: integer;
begin
readln(s);
for i:=1 to length(s) do if s[i]='а' then
     begin
     s[i]:='б' ;  k:= k+1;
     end;
write ('заменили букв б ',k)
end.

На 9-10 будут похожие задачи