Проверить совпадают ли цифры на нечетных местах в введенном пятизначном числе на паскаль​

var

 s : string;

begin

(* можно проверять не только числа, но и строки, т.к. число представлено в виде строки *)

 write('Введите пятизначное число : ');

 readln(s);

 if (s[1]=s[3]) and (s[3]=s[5]) then

   writeln('Совпадают')

 else

   writeln('Не совпадают');

end.