Множества целых чисел М разделить на два. Чётные записать во множество С, а нечетные во множество N — Pascal(Паскаль)

program PascalGuru;

uses crt;

type
  massiv = array [1 .. 50] of integer;

var
  M, N, C: massiv;
  i, n1, n2, n3: integer;

begin
  write('razmer M[n]= ');
  readln(n1);
  writeln('Vvedite elementy:');
  for i := 1 to n1 do
  begin
    write('M[', i, ']= ');
    readln(M[i]);
  end;
  clrscr;

  n2 := 0;
  n3 := 0;
  for i := 1 to n1 do
    if odd(i) then
    begin
      inc(n2);
      N[n2] := M[i];
    end
    else
    begin
      inc(n3);
      C[n3] := M[i];
    end;

  write('M: ');
  for i := 1 to n1 do
    write(M[i], ', ');
  writeln;
  writeln;
  write('C: ');
  for i := 1 to n3 do
    write(C[i], ', ');
  writeln;
  writeln;
  write('N: ');
  for i := 1 to n2 do
    write(N[i], ', ');
  writeln;

  readln;

end.