Определить среднею цифру числа - Pascal ABC

Формулировка задачи:

1) Число N содержит нечетное количество цифр. Определить среднею цифру числа.

Решение задачи: «Определить среднею цифру числа»

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

uses crt;
var
  s:string;
begin
  writeln('Введите число с нечетным кол-вом цифр:');
  readln(s);
  if (Length(s))mod(2)<>0 then
    begin
      Write('Средняя цифра чиса: ',s[(length(s))div(2)+1]);
    end
      else
        writeln('Введено число с четным кол-вом цифр!');
  readln;
end.

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

Импортируется модуль CRT (для работы с консолью).
Объявляется переменная s типа строка.
Выводится сообщение с просьбой ввести число с нечетным количеством цифр.
Считывается строка s с помощью функции readln.
Проверяется нечетность длины строки s с помощью оператора mod(2).
Если длина строки нечетная, выводится средняя цифра числа s, которую получают с помощью операции деления длины строки на 2 и получения остатка от деления на 2, а затем добавляется 1.
Если длина строки четная, выводится сообщение о том, что введено число с четным количеством цифр.
Программа ожидает нажатия любой клавиши для завершения работы.