Дан список случайных целых чисел. Перевернуть список т.е. расставить все числа в обратном порядке. Подсчитать средне арифметическое его элементов. Создать два новых списка в одном из которых записать все элементы > 5, в другой все остальные элементы исходного списка — Pascal(Паскаль)

const
  N = 15;

var
  I, V: Integer;
  Count2, Count3: Integer;
  M1, M2, M3: array [1 .. N] of Integer;

begin
  // ====================================
  // Заполнить исходный массив случайными числами
  // Здесь числа будут от -50 до 49

  for I := 1 to N do
    M1[I] := Random(100) - 50;
  // ====================================

  // Поворот списка
  for I := 1 to N div 2 do
  begin
    V := M1[I];
    M1[I] := M1[N - I + 1];
    M1[N - I + 1] := V;
  end;

  // Заполнить дополнительные массивы
  Count2 := 0; // Кол-во элементов в M2
  Count3 := 0; // Кол-во элементов в M3
  for I := 1 to N do
    if M1[I] > 5 then
    begin
      Inc(Count2);
      M2[Count2] := M1[I];
    end
    else
    begin
      Inc(Count3);
      M3[Count3] := M1[I];
    end;
  writeln('massiv1');
  for I := 1 to N do
    writeln(M2[I]);
  writeln('massiv2');
  for I := 1 to N do
    writeln(M3[I]);

end.