Создать массив на четных местах в котором стоят единицы а на нечетных местах числа равные остатку от деления своего номера 5

Var a:array[0..100] of integer; 
i,n:integer; 
begin 
read(n); 
for i:=0 to n-1 do begin read(a[i]); 
if i mod 2=0 then a[i]:=1 else 
a[i]:=i mod 5; 
end; 
for i:=0 to n-1 do write(a[i],' '); 
end.