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

Var C,N:array[1..10] of integer; A,i,j,m:integer; Begin WriteLn('Введите десять целых чисел'); 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.