Дано целое число N(>1) и набор из N целых чисел. Вывести те элементы в наборе, которые меньше своего правого соседа, количество К таких элементов — Pascal(Паскаль)

const
n=5;
var
a:array [1..n] of integer;
i,k:integer;
begin
For i:=1 to n do
begin
a[i]:=random(10);
writeln(a[i]);
end;
For i:=1 to n-1 do
begin
if a[i]<a[i+1] then
inc(k)
end;
writeln('Количество = ',k);
end.