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

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