Как сравнить первую букву группы с последней, если первая буква заглавная. - Free Pascal

Как сравнить первую букву группы с последней, если первая буква заглавная

Листинг программы

if(s[n]] in ['а'..'п']) and(chr(ord(s[n])-32)=s[1])
or(s[n]] in ['р'..'я']) and(chr(ord(s[n])-80)=s[1])
or (s[n]='ё')and(s[1]='Ё') then...

Объяснение кода листинга программы

Проверяется, является ли первая буква слова в группе а..п (включая а и п, но не включая я).
Если это так, то проверяется, является ли первая буква слова в группе Ё (включая Ё, но не включая я).
Если первая буква слова в группе Ё, то проверяется, является ли первая буква слова в группе ё (включая ё, но не включая я).
Если все эти условия выполняются, то выполняется блок кода, который следует за этим условием.