Дана строка символов, содержащая цифры.Вывести самую короткую последовательность четных цифр в строке (Паскаль)

Предыдущий
вопрос Следующий
вопрос

Пример реализации данной задачи на языке Pascal:

program ShortestEvenSequence;
var
inputStr, shortestSeq: string;
i, j, k: integer;
currentSeq: string;
begin
shortestSeq := '';
write('Введите строку символов, содержащую цифры: ');
readln(inputStr);
i := 1;
while i <= length(inputStr) do
begin
currentSeq := '';
while (i <= length(inputStr)) and (inputStr[i] >= '0') and (inputStr[i] <= '9') do
begin
if (ord(inputStr[i]) - ord('0')) mod 2 = 0 then
currentSeq := currentSeq + inputStr[i];
i := i + 1;
end;
if (length(currentSeq) < length(shortestSeq)) or (shortestSeq = '') then
shortestSeq := currentSeq;
i := i + 1;
end;
writeln('Самая короткая последовательность четных цифр в строке: ', shortestSeq);
end.

Пример выполнения программы:

Введите строку символов, содержащую цифры: abcd234567890efgh
Самая короткая последовательность четных цифр в строке: 24