Нужно исправить программу, чтобы при выполнении с клавиатуры вводилось натуральное число, не превышающее 10^9, и выводилась минимальная цифра этого числа.

и что эта программа выведет, если ввести число 461.
Заранее спасибо!

Как то так:

var N: longint;
min_digit: byte;
begin
readln(N);
min_digit := 9;
while N > 0 do
begin
if N mod 10 < min_digit then min_digit := N mod 10;
N := N div 10
end;
writeln(min_digit);
end.