Дана строка, в которой нет русских букв. Написать подпрограмму для поиска максимального из всех двузначных чисел в строке (под числом понимается последовательность цифр отделенная пробелами или стоящая в конце или начале строки, все числа целые, не отрицательные). Если в строке нет ни одного двузначного числа, то подпрограмма должна вернуть 0.
Использовать заголовок:
function CalcMax(s: string): integer;