Составьте программу, которая наполняет массив а[1..10] случайными целыми числами в спектре

Сосед слева будет иметь порядковый номер, меньший на единицу, чем осматриваемый элемент. Если номер разглядываемого элемента равен n, то номер его соседа будет равен (n 1).
При этом необходимо учитывать, что у элемента с порядковым номером 1 не буде такового соседа.
Из этого следует, что рассматривать все элементы мы должны, начиная со второго.
Сделаем массив а, в котором 10 частей:
var a: array [1..10] of integer;
Заполним его числами от  0 до 50 с подмогою random():
for i:integer1 to 10 do
a[i] random(50);
Проверим основное условие:
for i:integer2 to 10 do
if (a[i] gt; a[I + 1]) then
col_chtvo  col_chtvo + 1;