Дано натуральное число. Установить, является ли последовательность его цифр при просмторе их справа налево упорядоченной

program zz1;var i, k, n, p:integer; // задаем переменные целого типаbeginread(n); // вводим заданное натуральное числоk:=n mod 10; // получаем последнюю цифруn:=n div 10;   // выбрасываем ее из числаrepeat  // организуем циклi:=n mod 10;  // получаем следующую цифруn:=n div 10;   // выбрасываем ее из числаif k < i then p:=1; // проверяем, если нет возрастания, то запоминаемk:=i;until n<>0;

if p = 0 then write( \' возрастание \') else write (\' не возрастание \'); // выводим ответend.