Выясните, верно ли, что в заданном предложении есть пара соседствующих одинаковых символов — Pascal(Паскаль)

VAR
   st: string;
   i: byte;
   fl: boolean;
BEGIN
   Write('введите предложение: ');
   ReadLn(st);
   For i:=1 to Length(st)-1 do
      If st[i]=st[i+1] then fl:=true;
   WriteLn(fl);
   ReadLn
END.