Исправить ошибку в коде - Pascal ABC (15243)

program v1;
const n=10;
var a:array[1..n] of integer;
i:integer;
begin
for i:=1 to n do
read(a[i]);
for i:=1 to n do
if (a[i]<0)and (a[i] mod 2=0) 
then a[i]:=a[i]/2
else if (a[i]<0) and (a[i] mod 2<>0) then a[i]:=a[i]+2 else a[i]:=-a[i];
for i:=1 to n do
write(a[i])
end.