Pascal Написать программку проверяющую есть ли в заданном слове две попорядку

program raf105;

var  

s:string;

x:boolean;

i:integer;

begin

write('Введите слово: ');

readln(s);

s:= lowercase(s);

for i:=2 to length(s) do

 if not x

   then x:= s[i] = s[i-1];

if x

 then writeln('В слове есть две попорядку идущие, однообразные буквы')

 else writeln('В слове нет 2-ух подряд идущих, одинаковых букв');

end.

Язык PascalABC