Получить вектор М, расположив в нем элементы массива А, для которых выполнено условие A[i] < i

const N = 15;
 
var a: array [1..N] of integer;
 
begin
  for var   i:=1 to N do
    a[i] := Random(100);
  writeln('Элементы массива a: ');
  for var i:=1 to N do
    write(a[i],' ');
  writeln;
 
  for var i:=N downto 2 do
    a[i] := a[i-1];
  a[1] := 0;
 
  writeln('После сдвига вправо: ');
  for var i:=1 to N do
    write(a[i],' ');
  writeln;
end.

const
  N = 15;
var
  a, m : array [1..N] of integer;
  i, k, j : integer;
begin
  randomize;
  k := 0; {счетчик чисел в массиве M}
  j := 1; {индекс массива M}
  writeln('Элементы массива A: ');
  for i := 1 to N do
  begin
    a[i] := Random(20); 
    write(a[i]:4); {выводим}
    if a[i] < i then
    begin
      m[j] := a[i];
      k := k + 1;
      j := j + 1
    end
  end;
  {выведем массив M}
  writeln;
  writeln('Элементы массива M: ');
  for j := 1 to k do
    write(m[j]:4);
  writeln;
  {сдвигаем}
  i := m[k]; {сдвиг циклический}
  for j := k - 1 downto 1 do
    m[j+1] := m[j];
  m[1] := i;
  writeln('Элементы массива M после сдвига: ');
  for j := 1 to k do
    write(m[j]:4)  
end.

for var   i:=1 to N do