Pascal abc, программа! вводится целое положительное число. найти наименьшую нечетную цифру в числе. если в числе нет нечетных цифр, то вывести надпись "в числе нет нечетных цифр"

Возможно, так, как сделал я - не совсем то, что хотел от вас преподаватель. но программа работает как надо по вашему . при чем вводить можно даже числа из девяти знаков function checkstr( x: string ): boolean; // это функция, которая проверяет введенное пользователем на то, является ли это целым  положительным числом, а не какими-нибудь буквами begin var k: integer; if length(x) > 0 then begin result : = true; for k : = 1 to length(x) do if not (x[k] in ['0'..'9']) then begin result : = false;     // если пользователь ничего не ввел или ввел не цифры, то будет возвращена ложь end; end; end; var n: string; error, r, i, min: integer; b: array[1..8] of integer; // в - массив, в котором будут храниться все цифры введенного числа begin write('введите целое положительное число: '); readln(n); if checkstr(n) then begin // вызываем нашу функцию на обработку введенных данных r : = length(n); // присваиваем переменной r размер введенной строки val( n[ 1 ], min, error); // конвертирует строковое значение в тип integer и присваиваем минимальному значению  первую цифру for i : = 2 to r do begin val( n[ i ], b[ i ], error ); // конвертируем строковые цифры в integer if ( b[i] < min ) and ( b[i] mod 2 < > 0) then min : = b[i]; // если цифра нечетная и меньше переменной min , то присвоить переменной min значение этой цифры if ( min mod 2 = 0 ) then min : = b[i]; // проверяем на всякий случай еще раз первую цифру end; if ( min mod 2 = 0 ) then writeln('нечетных цифр нет') // если нечетных цифр нет, а наименьшая цифра четная, то говорим, что нечетных цифр  нет else writeln( 'наименьшая нечетная цифра в числе: ', min ); // выводим наименьшую нечетную цифру из числа end else writeln('неверный формат ввода'); // если пользователь вдруг ввел буквы или какие-нибудь каракули вместо целого числа end.

Юра в новгороде; толя в москве; алёша в томске; коля в перми; витя в санкт - петербурге