Пожалуйста 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.