Определить, является ли последовательность из N произвольных чисел строго возрастающей

Program gh_02;
Var new, old: Real;
Begin
Writeln ('Введите число');
Readln (old);
Writeln ('Введите число');
Readln (new);
Repeat
If new>old then
Writeln ('Последовательность строго возрастает');
old:=new;
Writeln ('Введите число');
Readln (new);
Until new<old;
Writeln ('Возрастание последовательности прекращено');
Readln;
End.

const
   n = 5;
type
   mas = array[1..n] of integer;
var
   a: mas;
   i: byte;
begin
   writeln('введите элементы массива');
   for i:=1 to n do readln(a[i]);
   writeln('вывод элементов массива:');
   for i:=1 to n do write(a[i]:5);
end.

var
  a, b, delta, f: real;
begin
  writeln ('Введите последовательность произвольных чисел через пробел. В конце последовательности поставить 0');
  read(a);
  if a <> 0 then read(b) else b := 0;
  delta := (a - b);
  f:=0;
  while b <> 0 do begin
    if delta * (a - b) <= 0 then f:=1;
    a := b;
    read(b)
  end;
  if a = 0 then b := 1;
  if f=0 then writeln('Последовательность является возрастающей')
  else writeln ('Последовательность не является возрастающей')
end.

var
n,i:integer; //i - кол-во элементов массива
s:string;
begin
i:=5;
n:=Length(m); - получить кол-во элементов массива
repeat
if m[n]<m[n+1] then
s:='verno'
else s:='ne verno';
n:=n+1;
until n=i;
выводим значение S на экран
end;

...
Ch:=Readkey;
a:=Ord(Ch)-Ord('0');
...

 while b <> a do

var a: char;

a:= '/';
a:= Ord('/')-Ord('0');

while b <> a do

n:=i;
i:=length(m);

Ch:=Readkey;
If Ch in ['0'..'9'] then a:=Ord(Ch)-Ord('0') else
  If Ch='/' then Exit;

for i:=1 to n do оператор;
 
i:=1;
while i<=n do begin
  ...
  Inc(i);
end;
 
i:=1;
repeat
  ...
  Inc(i);
until i>n;

var
  n, i, c, p, k: Integer;
begin
  Write('Введите количество элементов: '); ReadLn(n);
  Write('Введите элементы: ');
  k:=0; Read(c);
  for i:=1 to n do begin
    p:=c; Read(c);
    if c<=p then Inc(k);
  end;
  if k>0 then WriteLn('Последовательность НЕ возрастает.')
  else WriteLn('Последовательность строго возрастает.');
end.