Найти наибольшую и наименьшую цифры в записи данного натурального числа (Pascal ABC). C использованием цикла REPEAT

program f1cda001;var a, b, c, min, max: Integer;beginwriteln('Введите число:');readln(b);min:=9;max:=0;repeatbeginc:=b mod 10;b:=b div 10;If c<min Then min:=c;If c>max Then max:=c;end;until b<=0;writeln('Наибольшее значение:',max);writeln('Наименьшее значение:',min);end.