Паскаль:Массив состоит из 20 элементов.Найти сумму нечётных элементов.Найти сумму чётных элементов.Надо сделать с использованием  Random.Помогите

плиз!!!

const n=20;vara:array [1..n] of integer;i,s,k:integer;begins:=0;k:=0;Randomize;for i:=1 to n do begin   a[i]:=random(50);  write(a[i],' ');end;for i:=1 to n do if (a[i] mod 2 =0) then s:=s+a[i]                                     else k:=k+a[i];writeln;writeln('Сумма четных элементов: ',s);writeln('Сумма нечетных элементов: ',k);end.