исправить ошибки

[Vetal_1715]

Program P1;
var a: array [1..256] of integer;
i,n,p: integer;
Procedure P1;
if p=0 then writeln('nema');
begin
readln(n);
for i:=1 to n do readln(a[i]);
p:=0;
for i:=1 to n do
if i mod 2=0 then if a[i] mod 2=0 then begin
writeln(a[i]);
p:=p+1
end;
end.