Помогите пожалуйста, завтра экзамен!  С клавиатуры вводятся вещественные числа. Признак конца

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

Program Lab_1_2;Var x1 : integer; x : integer; flag : boolean;BEGIN Writeln('Введите числовую последовательность. '); write('>');Readln(x1); flag:=true; x:=x1; While x<>0 do begin If x <> x1 then flag:= false; write('>');readln(x); end; if flag then Write('Все элементы последовательности одинаковы меж собой') else Write('Все элементы последовательности НЕ одинаковы между собой'); readlnEND.

Помогите пожалуйста

есть пример исполненья программки для проверки равенства всех членов последовательности, не совершенно понятно как вынудить программку сопоставлять новый член последовательности с предшествующим

Program Lab_1_2;Var x1 : integer; x : integer; flag : boolean;BEGIN Writeln('Введите числовую последовательность. '); write('>');Readln(x1); flag:=true; x:=x1; While x<>0 do begin If x <> x1 then flag:= false; write('>');readln(x); end; if flag then Write('Все элементы последовательности равны между собой') else Write('Все элементы последовательности НЕ одинаковы между собой'); readlnEND.

Помогите пожалуйста

Var
  x, x1: integer;
  BreakLoop, NonDescending: Boolean;

begin
  writeln('Вводите числовую последовательность');
  read(x);
  read(x1);
  NonDescending := (x1 gt;= x);
  repeat
    read(x);
    if x lt;gt; 0 then
      if NonDescending then BreakLoop := (x lt; x1)
      else BreakLoop := (x gt; x1);
    x1 := x
  until BreakLoop or (x = 0);
  if BreakLoop then writeln(1310, 'Последовательность неупорядочена')
  else
  if NonDescending then writeln(1310, 'Последовательность неубывающая')
  else writeln(1310, 'Последовательность невозрастающая')
end.

Тестовое решение
Вводите числовую последовательность
7
12
12
18
34
0

Последовательность неубывающая

var
  a, c: boolean;
  b, b1: integer;
begin
  readln(b);
  readln(b1);
  if (b gt; b1) then
    a := true
  else
    if (b1 gt; b) then
      a := false;
  while (true) do
  begin
    readln(b1);
    if (0 in [b, b1]) then
      break;
    if a then
    begin
      if (b lt; b1) then
        c := true;
    end
    else
      if (b gt; b1) then
        c := true;
    b := b1;
  end;
  if c then
    writeln('Случайная')
  else
    if (a) then
      writeln('Невозрастающая')
    else
      writeln('Неубывающая');
end.

Само собой, обязано быть минимум 2 числа в последовательности:)