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

program z1; var a:array [1..10] of integer; i,r,k,p,s:integer; begin randomize; 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.