Дано цілі числа a ,b c, d.вивести "yes", якщо ці числа утворюють зростаючу послідовність інакше ,вивести "no"

program raf105;

const

 n = 10;

var

 x: array[1..n] of integer;

 i: integer;

 a,b,c: boolean;

begin

 a:= True;

 writeln('Заполните массив из ',n,' чисел');

 for i:=1 to n do

 begin

   readln(x[i]);

   a:= (x[i] = 0) and a;

   b:= ( not(c) and (x[i] > 0) ) or b;

   c:= ( not(b) and (x[i] < 0) ) or c;

 end;

 if a

   then writeln('Все числа равны нулю');

 if b

   then writeln('Первое ненулевое число - положительное');

 if c

   then writeln('Первое ненулевое число - отрицательное');

end.

PascalABC 3.4.2

// PascalABC.NET 3.2, сборка 1415 от 25.03.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var n:=ReadInteger('Количество строк в массиве:');
  var m:=ReadInteger('Количество столбцов в массиве:');
  Writeln('*** Исходный массив [',n,',',m,'] ***');
  var a:=new real[n,m];
  for var i:=0 to n-1 do
    for var j:=0 to m-1 do
      a[i,j]:=Random(5,90);
  a.Println(3,0); Writeln;
  var p:=a.ElementsByRow.Min;
  for var i:=0 to n-1 do
    for var j:=0 to m-1 do
      a[i,j]:=a[i,j]/p;
  a.Println(7,3)
end.

Пример
Количество строк в массиве: 4
Количество столбцов в массиве: 7
*** Исходный массив [4,7] ***
 83 87 11 18 74 78 24
 45 28 59 56 14 67  5
 74 65 48 79 68 45 37
 52 70 16 82  5 51 70

 16.600 17.400  2.200  3.600 14.800 15.600  4.800
  9.000  5.600 11.800 11.200  2.800 13.400  1.000
 14.800 13.000  9.600 15.800 13.600  9.000  7.400
 10.400 14.000  3.200 16.400  1.000 10.200 14.000