var s: string;

c: char;

i, counter: integer;

begin

   s := 'abcaabaacd';

   c := 'a';

   // For

   for i := 1 to Length(s) do

       if s[i] = c then

           inc(counter);

   writeln('"', c, '" встречается в строке "', s, '" ', counter, ' раз');

   // Repeat

   counter := 0;

   i := 1;

   repeat

       if s[i] = c then

           inc(counter);

       inc(i);

   until i = Length(s);

   writeln('"', c, '" встречается в строке "', s, '" ', counter, ' раз');

end.