Заполнить массив из 10 элементов случайными числами в интервале [-10..10] и выполнить циклический сдвиг влево без первого элемента. решение нужно на уровне 10 класса ( паскаль)

Последовательности длиной 7, содержащей 5 букв А могут быть следующими:
** (* - любой из символов В или С)
*А*
ААА*АА*
АА*ААА*
А**
** (пока 6 вариантов)
Далее - аналогично:
**А
ААА*А*А
АА*АА*А
А*ААА*А
**А (ещё 5 вариантов)
ААА**АА
АА*А*АА
А*АА*АА
*ААА*АА (ещё 4 варианта)
АА**ААА
А*А*ААА
*АА*ААА (ещё 3 варианта)
А**
*А* (ещё 2)
** (ещё 1)
Итого: 6+5+4+3+2+1=21
Так как на месте * могут быть любые из 2 символов В или С, то это даст ещё по 4 варианта для каждого случая.
Можно здесь, конечно, комбинаторику вспомнить.
Итого: 21*4 = 84

// PascalABC.Net 3.2, сборка 1319 от 08.10.2016
begin
  var n:=20;
  var a:=ArrRandom(n,-12,12);
  Writeln('Массив случайных чисел'); a.Println;
  Println('Количество элементов, равных 10:',a.Where(x->x=10).Count);
  Write('Нулевые элементы ');
  var k:=0;
  for var i:=0 to n-1 do
    if a[i]=0 then begin Inc(k); Print(i+1) end;
  if k=0 then Writeln('отсутствуют') else Writeln;
  Writeln('Меняем местами элементы 3 и 6');
  Swap(a[2],a[5]); a.Println
end.

Результат работы программы
Массив случайных чисел
-12 -4 5 10 5 4 -5 11 0 -8 -5 -7 1 2 -1 9 0 -5 10 -2
Количество элементов, равных 10: 2
Нулевые элементы 9 17
Меняем местами элементы 3 и 6
-12 -4 4 10 5 5 -5 11 0 -8 -5 -7 1 2 -1 9 0 -5 10 -2