Дан массив состоящий из 6-ти элементов : а)найти максимальный элемент массива б)найти сумму четных элементов и произведение не четных элементов.

Var
a: array [1..6] of integer;
 i,p,s, max: integer;
begin
max := a[i];
p:=1;
s:=0; 
 for i:= 1 to 6 do   
 if a[i] > max then
 max := a[i]; //находим максимальный   
 if a[i] mod 2 = 0
then s:= s+ a[i]//находим сумму четных   
else p:= p*a[i];//находим произведение нечетных 
 writeln(max);//вывод максимального 
writeln(s);//вывод суммы четных 
writeln(p);// вывод произведения нечетных
end.