Пожалуйста 1 и 3 быстрей

Var mass:array[1..14] of integer;       
i,sumch,sumnech:integer;
begin
i:=0;
sumch:=0;
sumnech:=0;
repeat
i:=i+1;
mass[i]:=random(10)+1;
if (mass[i] mod 2) =0 
 then sumch:=sumch+mass[i] 
 else sumnech:=sumnech+mass[i]; 
writeln(mass[i]);
until i=14;
writeln(сумма четных      = +sumch);
writeln(сумма нечетных = +sumnech);
end.