Program A1. минимальное и максимальное число

[Nevsky]

Нужно написать программу. Мы пишем натуральное число, любое, а программа должна найти минимальное и максимальное число в этом натуральном числе.
Я написал, не могли бы проверить и подкорректировать.

Program A1
var z,n,min,max:integer;
BEGIN
write('n=');
read(n);
max:=0;
min:=9;
while n>0 do
begin
z:=n mod 10;
if z < min then min:=z;
if z > max then max:=z;
n:=n div 10;
end;
writeln('max=',max,' ','min=',min);
END.

[Poma][a]

а программа должна найти минимальное и максимальное число в этом натуральном числе.

Цифру

Program A1;
А так.. Всё прекрасно! Удачи

[Nevsky]

А не могли бы вы еще помочь с блок схемой как нибудь?

[Poma][a]

А в интернете есть онлайн построители блок-схем