Розв’язок задачі з Абрамова №255

Всі умови | Умова: Дано натуральне число n, символи s1, ..., sn. Отримати перше натуральне число i, для якого кожен із символів si і si +1 збігається з буквою a. Якщо такої пари символів в послідовності s1, ..., sn немає, то відповіддю має бути число 0. (С.А. Абрамов, Г.Г. Гнездилова,Е.Н. Капустина, М.И. Селюн. Задачи по программированию. - Вологда, 2000. - №255)

program Pr255;
var
  i, k:integer;
  St : string;
begin
  readln(St);
  i:=0;
  k:=0;
  repeat
    i:=i+1;
    if (St[i]='a') and (St[i+1]='a') then
      k:=i
  until (St[i]='a') and (St[i+1]='a') or (i=length(St));
  writeln('Result: ', k);
  readln;
end.