Обработка литерных величин.

[dima95]

Определите, совпадает ли количество букв "а" в двух словах. Вставьте после буквы "я" в слове букву "к" и перед ней букву "с".

[Mad_Cat]

Определите, совпадает ли количество букв "а" в двух словах

A:=0;
For i:=1 to Length(s1) do
if s1[i]:='a' then inc(a);
For i:=1 to Length(s2) do
if s2[i]:='a' then dec(a);
writeln(a=0);