Паскаль:Массив состоит...

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

 

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