Cоставить программу записи в массив B номеров четных элементов массива A.Как можно проще, пожалуйста

Const
   N = 13;
Var
   A,B:array[1..N] of integer;
   i,j:integer;
Begin
j:=0;
Write('Массив A(',N,'):');
For i:= 1 to N do
    Begin
    A[i]:=random(N);
    Write(' ',A[i]);
    if A[i] mod 2 = 0 then
       Begin
       j:=j+1;
       B[j]:=i;
       End;
    End;
WriteLn;
Write('Массив B(',j,'):');
For i:= 1 to j do
    Write(' ',B[i])
End.


Пример работы программы:

Массив A(13): 1 11 9 11 12 2 6 12 0 10 8 11 10
Массив B(8): 5 6 7 8 9 10 11 13