1)В первом цикле двоеточие,а у вас точка с запятой после i
2)if (a[i]>0) and (i mod 2 = 0) then ...