Вводится последовательность ненулевых чисел, 0 - конец последовательности. Определить, является ли эта

program ex64;
Uses Crt;
var
b: boolean; {b - флаг, определяющий является ли последовательность убывающей}
n1,n2: longint;
BEGIN
ClrScr;
b:=true; {ставим, что последовательность убывающая}
n1:=1;
n2:=MaxInt;
while n1<>0 do
begin
write('Введите n: ');
readln(n1);
{если следующий член послед-ти больше или равен предыдущему
то эта последовательность уже не явл-ся убывающей}
if (n2<=n1) and (n1<>0) then b:=false;
n2:=n1;
end;
writeln(b);

readLn;
END.