Написать программу считающие нечетные элементы и выводит среднеарифметическое четных. помогите, пожалуйста )))))

Program chet_nechet; 
const n=20; 
type mas=array[1..n] of integer; 
var i,k,sum,sum2,sr:integer; a:mas; 
begin 
sum:=0; 
sum2:=0; 
k:=0; 
write(Массив: ); 
for i:=1 to n do 
begin 
a[i]:=random(100); 
write(a[i], ); 
if a[i] mod 2=0 then begin k:=k+1; sum2:=sum2+a[i]; end 
                else sum:=sum+a[i]; 
end; 
writeln(); 
writeln(Сумма нечётных чисел=,sum); 
write(Среднее арифметическое четных чисел=,sum2/k:0:2); 
end. 

Если нужно что-то объяснить, то пишите...