Вопрос, который вызвал трудности

PASCAL ABC!!!
Дана последовательность натуральных чисел, завершающаяся число 0. Определите наибольшую длину монотонного фрагмента последовательности (то есть такого фрагмента, где все элементы либо больше предыдущего, либо меньше).

Числа, следующие за числом 0, считывать не нужно.

Ответ экспертов Учись.Ru

Чтобы дать полноценный ответ, был привлечён специалист, который хорошо разбирается в теме.

После обсуждения с другими специалистами сервиса мы пришли к выводу, что правильный ответ на ваш вопрос будет звучать следующим образом:

Var A,B,k,Max:byte;
Begin
Max:=1;
Read(A);
B:=A;
Repeat
if A>B then
   Begin
   if k>Max then Max:=k;
   k:=1;
   While (A>B)and(A>0) do
      Begin
      k:=k+1;
      B:=A;
      Read(A);
      End;
   End;
if A   Begin
   if k>Max then Max:=k;
   k:=1;
   While (A0) do
      Begin
      k:=k+1;
      B:=A;
      Read(A);
      End;
   End;
if A=B then
   Begin
   if k>Max then Max:=k;
   k:=1;
   B:=A;
   Read(A);
   End;
Until A=0;
if k>Max then Write(k)
else Write(Max)
End.