заполнить массив n элементов , потом сохранить в массив n2 четные

Const N=10;
var i, j: byte;
    n1, n2: array [1..N] of integer;
begin
     j := 1;
     for i := 1 to N do
     begin
          n1[i] := random(100);
          writeln('n1[', i, '] =gt; ', n1[i]);
     end;
     writeln('-----------------');
     for i := 1 to N do
     begin
         if (n1[i] mod 2 = 0) then
         begin
              n2[j] := n1[i];
              inc(j);
              n1[i] := n1[i] * 2;
         end;
     end;
     for i := 1 to N do
          writeln('n1[', i, '] =gt; ', n1[i]);
     for i := 1 to j do
          writeln('n2[', i, '] =gt; ', n2[i]);
end.

Если я верно сообразил, то вот так =)