25 баллов.Вводится последовательность вещественных чисел. Признак конца ввода – 0. Определить является ли последовательность упорядоченной по убыванию.Паскаль

я не буду писать полный код , ок? real n,m;integer t;t=0;m:=-100000000000000;{крч. какое-нибудь дофига маленькое число}while(n<>0)beginreadln(n);if m>=n thenbegin t:=5; break;end;m:=n;end;if t=5 then writeln(yes); else writeln(no);