Даны натуральное число n, символы S1,S2,…,Sn. Получить первое натуральное i, для которого каждый из символов Si и Si+1, совпадают с буквой А. Если такой пары в последовательности S1,S2,…,Sn нет, то ответом должно быть число 0 — Pascal(Паскаль)

uses crt;
var si,s:char;
    n,i,i1:integer;
begin
clrscr;
write('Количество символов >1 n=');
readln(n);
writeln('Введите символы:');
i1:=0;
i:=1;
readln(si);
while i<n do
 begin
  readln(s);
  if(si='A') and(s='A') and (i1=0) then i1:=i;
  si:=s;
  i:=i+1;
 end;
write('Номер первой пары АА=',i1);
readln
end.