Помогите, пожалуйста. То ли я торможу, то ли лыжи не едут.
Задание: Инициализировать массив, который содержит целые числа. Переписать парные и непарные числа в разные массивы. Оформить это действие в виде процедуры с формальными параметрами. - В делфи

Вот то что я наваяла, подскажите, пожалуйста, ошибку:

program Project1;

{$APPTYPE CONSOLE}

uses
SysUtils;
type Mas=array [1..10] of integer;
Mas1=array [1..10] of integer;
Mas2=array [1..10] of integer;
procedure Proc(i:integer; M:Mas; M1:Mas; M2:Mas2);
begin
for i:=1 to 10 do
if M[i] mod 2 =0 then M[i]:=M1[i]
else M[i]:=M2[i];
end;

var M:Mas; M1:Mas; M2:Mas2; i:integer;

begin
M[1]:=2;
M[2]:=6;
M[3]:=9;
M[4]:=11;
M[5]:=17;
M[6]:=10;
M[7]:=19;
M[8]:=23;
M[9]:=13;
M[10]:=1;
proc ( i, M, M1, M2);

for i:=1 to 10 do
Write (M1[i]);

for i:=1 to 10 do
Writeln(M2[i]);



readln;
end.