Срочно!!! Помогите!!
1. Задайте массив из 10 элементов с помощью датчика случайных чисел. Найдите среднее арифметическое чётных элементов массива. Вывести на экран исходный массив и среднее арифметическое.

program z1;vara:array [1..10] of integer;i,r,k,p,s:integer;beginrandomize;k:=0;p:=0;for i:=1 to 10 do begin  a[i]:=random (40);  write (a[i],' '); end; writeln(' '); for i:=1 to 10 do begin  if a[i] mod 2=0   then k:=k+1  ;p:=p+a[i] end; s:=p div k; write (s); end.