Поиск минимальной цифры в целом числе n.составить блок схему

//Написано на PascalABCCompiler.Core v3.3.0.1540 (16.09.2017)

var
num, min: integer;
begin
min := 9;
read(num);
while num <> 0 do
begin
if num MOD 10 <= min then min := num MOD 10;
num := num DIV 10;
end;
write(min);
end.