Определить символ, следующий за последним вхождением цифры - Turbo Pascal

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

Помогите разобраться в задаче. С клавиатуры вводятся символы. Признак конца ввода-точка. Определить символ, следующий за последним вхождением цифры.

Решение задачи: «Определить символ, следующий за последним вхождением цифры»

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

Uses Crt;
Var
  Ch,Lc,S : Char;
Begin
  S:=' ';
  Repeat
    Ch:=ReadKey;
    If Ch=#0 then Ch:=ReadKey;
    Write(Ch);
    If (Lc>='0') and (Lc<='9') then S:=Ch;
    Lc:=Ch;
  Until Ch='.';
  Writeln;
  Writeln('Symbol: ',S);
End.

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

В начале кода подключается библиотека Crt, которая предоставляет функции для работы с клавиатурой и выводом.
Объявляются три переменные типа Char: Ch, Lc, S. Переменная Ch будет использоваться для хранения символа, прочитанного с клавиатуры, а переменные Lc и S будут использоваться для определения следующего символа после последней цифры.
Инициализируется переменная S значением ' '.
Запускается цикл Repeat, который будет выполняться до тех пор, пока не будет нажата клавиша #0 (что соответствует нажатию клавиши Enter).
Внутри цикла считывается символ с клавиатуры и сохраняется в переменной Ch.
Проверяется, является ли последний символ цифрой. Если это так, то считывается следующий символ и сохраняется в переменной Lc.
Если Lc является цифрой, то значение Lc присваивается переменной S.
После окончания цикла Repeat выводится символ, хранящийся в переменной S, с помощью функции Writeln.
Выводится строка 'Symbol: ', за которой следует значение переменной S, также с помощью функции Writeln.
Конец программы.