Задача на последовательность

var
  x, pred: integer;
  bool: boolean;
  b: boolean;
 
begin
  bool := true;
  b := false;
  repeat
    write('Введите x:');
    readln(x);
    if b = false then 
    begin
      pred := x; 
      b := true; 
    end;
    if (x <> 0) and (pred > x) then 
      bool := false;
    pred := x;
  until (x = 0);
  write(bool);
end.

var
  s: string;
  a: array of integer;
  i: byte;
 
begin
  repeat
    inc(i);
    SetLength(a, i + 1);
    write('Введите число: ');
    readln(a[i]);
    if (i <> 1) and (a[i] <> 0) then
      if a[i - 1] > a[i] then s := 'Не возрастает';
  until (a[i] = 0);
  if (s = '') and (i > 2) then s := 'Возрастает'
  else if s='' then s := 'Не была введена последовательность';
  write(s);
end.

var
  x1, x2, f: integer;
 
begin
  writeln('Введите первое число ряда');
  readln(x1);
  f := 1;
  repeat
    writeln('Введите продолжение ряда');
    readln(x2);
    if (x2 < x1) and (x2 <> 0) and (f = 1) then 
      f := 0;
    x1 := x2;
  until (x2 = 0);
  if f = 1 then writeln('Последовательность возрастающая')
  else writeln('Последовательность не является возрастающей');
end.