Вычислить сумму квадратов положительных элементов массива P(16) имеющих нечетные индексы — Pascal(Паскаль)

Uses
 CRT;
Const
 n=16;
Var
 i:integer;
 mas:array[1..n] of integer;
 sum:real;
begin
ClrScr;
randomize;
for i:=1 to n do
begin
 mas[i]:=random(10)-3;
 write(mas[i]:3);
  if (mas[i]>0) and (i mod 2<>0) then
  sum:=sum+(mas[i]*mas[i]);
end;
writeln;
write('Sum:=',sum);
end.

var
p: array[1..16] of integer;
i,a,sum: integer;
begin
for i:=1 to 16 do
    begin
    writeln('Введите ',i,'-ый элемент массива');
    readln(p[i]);
    end;
for i:=1 to 16 do
    begin
    if i mod 2=1 then
       begin
       if p[i]>0 then
          sum:=sum+sqr(p[i]);
       end;
    end;
writeln('Ответ: ',sum);
end.