Pascal. Обработка символьных данных.

[NitriNKa]

Помогите, пожалуйста, решить. В последовательности из 30 символов сосчитать, сколько раз встречается буква «А» и сколько раз за буквой «К» следует буква «А».

[Sazary]

Так а где ваши попытки? Что конкретно непонятно?

С помощью pos ищете 'A'. Если нашли - увеличиваете первый счетчик. Проверяете предыдущий символ - если это 'K', то увеличиваете второй счетчик.

[DM_bite]

program X;
var s:string[30];
    i,k,l: integer;
    begin
    k:=0;
    i:=0;
    ReadLn(s);
    for i:= 1 to length(s) do
     begin
     if s[i]='A' then inc(k);
     if (s[i]='A') and (s[i-1]='K') then inc(l);
     end;
     WriteLn(k,'_',l);
     ReadLn;
     end.

[Serge_Bliznykov]

if (s[i]='A') and (s[i-1]='K') then inc(l);

при 'A' первым в строке будет ошибка (s[i-1] будет s[0] - а там не символ, а длина строки