Дано целое число n и набор из n целых чисел. вывести номера тех чисел в наборе, которые меньше своего левого соседа, и количество k таких чисел. delphi 7

Консольное приложение: const n=10;   var a: array[1..n] of integer; i,k: integer;   begin randomize; writeln('массив a: '); for i: =1 to n do  begin   a[i]: =random(51);   write(a[i]: 4)   end; writeln; k: =0; writeln('номера чисел в наборе, которые меньше своего левого соседа: '); for i: =2 to n do   if a[i]< a[i-1] then begin write(i,' '); k: =k+1; end; writeln; writeln('k = ',k); end. пример: массив a:   31   37   20   22   37   11   45   19   3   14 номера чисел в наборе, которые меньше своего левого соседа: 3 6 8 9  k = 4

х+54=х+у

х-х+54=у

у=54(ор)-во 2-ой корзине

х=54+38=92(ор)- в 1-ой корзине

92-27=65(ор)- в 3-ей корзине.