турбо паскаль(последовательность)

[lilia2121]

Здравствуйте!следующая задача: дана последовательность из 100 чисел. Определить, образует ли она возрастающую последовательность.
можно сделать её таким способом:
Program tyr;
var a:array[1..100] of real;
i:integer;
flag:boolean;

begin
flag:=true;
for i:=1 to 100 do
read(a[i]);
for i:=1 to 100
if a[i-1]>a[i] then flag:=false;
if flag then writeln('Yes')
else writeln('No');
end.
или нужно делать по такому принципу:
program z1;
uses crt;
var a:array[1..100] of integer;
i,k,m,p:integer;
begin
clrscr;
randomize;
writeln('Размерность массива');
readln(m);
for i:=1 to m do
begin
a[i]:=random(1000); end;
k:=1;
while k<>0 do
begin
k:=0;
for i:=1 to m-1 do
begin
if a[i]<a[i+1] then
begin
k:=1;
p:=a[i];
a[i]:=a[i+1];
a[i+1]:=p;
end;
end;
end;
for i:=1 to m do
write(a[i]:4);
readkey;
end.

[Serebro]

Program tyr;
var a:array[1..100] of real;
i:integer;
flag:boolean;

begin
flag:=true;
for i:=1 to 100 do
read(a[i]);
for i:=1 to 100
if a[i-1]>a[i] then flag:=false;
if flag then writeln('Yes')
else writeln('No');
end.

Нет элемента a[i-1] при i=1!

[lilia2121]

то есть лучше написать от 2 до 100?

[RUSt88]

все правильно делаешь, только массив объявляешь как школьник [1..100], объявляй по нормальному [0..99]

for i:=1 to 99
if a[i-1]>a[i] then flag:=false;