Напечатать True, если элементы последовательности упорядоченны по возрастанию, и False- в противном случае.
Составить блок схему и написать программу для Делфи
Помогите пожалуйста
Хотя бы с блок схемой
Буду очень признательна

Pascal:

program help;

var i,n,q,j:integer;

   a: array[1..10000] of integer;

begin

write('How much?: ');

readln(n);

for i:=1 to n do begin

readln(q);

a[i-1] := q

end;

for i:=1 to n do begin

if a[i] > a[i-1] then

j := j + 1

end;

if j = n-1 then

writeln(True)

else

writeln(False)

end.

========================

Python:

a = int(input("How much?: "))

s = []

j = 0

for i in range(0,a):

   x = int(input(str(i+1) + 'e chislo - '))

   s.append(x)

for i in range(1,len(s)):

   if s[i] > s[i-1]:

       j +=1

if j == len(s)-1:

   print(True)

else:

   print(False)

--------------------------------------------

Хочу отетить, что данную задачу можно было бы решить менее затратным кодом.