Сформировать два массива из десяти целых чисел: в 1-ый записывать четныезначения,

Var
C,N:array[1..10] of integer;
A,i,j,m:integer;
Begin
WriteLn('Введите 10 целых чисел');
j:=0;
m:=0;
For i:= 1 to 10 do
    Begin
    Read(A);
    if A mod 2 = 0 then
       Begin
       j:=j+1;
       C[j]:=A;
       End
    else
       Begin
       m:=m+1;
       N[m]:=A;
       End
    End;
Write('Массив чётных чисел: ');
For j:= 1 to j do
    Write(C[j],' ');
WriteLn;
Write('Массив нечётных чисел: ');
For m:= 1 to m do
    Write(N[m],' ');
End.