Подскажите как можно закодить выражение a0-а1+a2-а3+a4-а5+...чтоб оно выполнялось в цикле?

j = 1;
for(g = 0; g <= n; i++)
{
s += a [ g ] * j;
j = -j;
}

или

j := 1;
for g := 0 to n do
begin
s := s + a[ g ] * j;
j := -j;
end;