Даны натуральное n и последовательность а1,а2…а n вещественных чисел. Определить образуют ли они возрастающую последовательность — Pascal(Паскаль)

program Dekio;
const
n=10;
var
mas :array[1..n] of integer;
i :integer;
bool :boolean;
begin
bool :=true;
writeln('=:');
for i:=1 to n do
readln(mas[i]);
for i:=1 to n-1 do
if mas[i] < mas[i+1] then
bool :=true
else 
begin
bool :=false;
break;
end;
if bool then
writeln('Образует')
else 
writeln('Не образует');
end.