30 БАЛЛОВ ЛЮДИ ОЧЕНЬ СРОЧНО
Дана строка, в которой нет русских букв.
Написать подпрограмму для поиска минимального из всех трехзначных чисел в строке (под числом понимается последовательность цифр отделенная пробелами или стоящая в конце или начале строки, все числа целые, не отрицательные). Если в строке нет ни одного трехзначного числа, то подпрограмма должна вернуть 0.
Использовать заголовок:
function CalcMin(s: string): integer;