Дано 100 вещественных чисел. Определить ,образуют ли они возрастающую последовательность

program Project1;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
var x, x1: real;
    i: integer;
    f: boolean;
 
begin
  f := false;
  writeln('Enter 100 numbers:');
  write('x[  1] = ');
  readln(x);
  for i := 2 to 100 do
    begin
      write('x[', i:3, '] = ');
      readln(x1);
      if x >= x1 then
        begin
          f := true;
          break
        end;
      x := x1
    end;
  if f then writeln('No')
       else writeln('Yes');
  readln
end.

program Project1;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
const m = 10;
 
var n, b: array [1..m] of integer;
    i, j, k: integer;
 
begin
  writeln('Enter ', m, ' numbers:');
  for i := 1 to m do
    begin
      write('b[', i:3, '] = ');
      readln(b[i]);
      n[i] := 0;
    end;
  k := 0;
  writeln;
  writeln('Equal numbers:');
  for i := 1 to m do for j := i + 1 to m do
    begin
      if (b[i] = b[j]) and (n[j] = 0) then
        begin
          if n[i] = 0 then
            begin
              k := k + 1;
              writeln(b[i])
            end;
          n[i] := k;
          n[j] := k
        end
    end;
  writeln;
  if k = 0 then writeln('None')
           else writeln('Count = ', k);
  readln
end.

program Project1;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
const m = 20;
 
var a, b: array [1..m] of real;
    i: integer;
    s: real;
 
begin
  s := 0;
  writeln('Source array a[1..', m, ']:');
  for i := 1 to m do
    begin
      write('a[', i:2, '] = ');
      readln(a[i]);
      s := s + a[i];
    end;
  writeln;
  writeln('Destination array b[1..', m, ']');
  for i := 1 to m do
    begin
      b[i] := (s - a[i]) / (m - 1);
      writeln('b[', i:2, '] = ', b[i])
    end;
  readln
end.