Кодировка для .ладья и пешка.даны позиции на шахматной доске так,как это принято в шахматной нотации.определить ,бьёт ли ладья пешку

//PascalABC.Net 3.2
begin
var s1:=readstring('Введите координаты ладьи: ');
var s2:=readstring('Введите координаты пешки: ');
write ((s1[1]=s2[1]) or (s1[2]=s2[2]));
end.