никак не могу сделать...

uses
    crt;
var
   a:array[1..1000] of integer;
   i,sum,n:integer;
begin
     writeln('wvedite kol-vo chisel');
     readln(n);
     writeln('wvedite posl chisel');
     for i:= 1 to n do
         read(a[i]);
     sum:=0;
     for i:= 1 to n do
         if i mod 2<>0 then
            sum:=sum+a[i];
     writeln('rezultat => ',sum);
readkey
end.

Uses
 Crt;
Const
 mmax=100;
var
 a:array[1..mmax] of integer;
 ii,sum,m:integer;
 
function prost(n:integer):boolean;
var
  i, j: integer;
  t, l: boolean;
begin
  l:=false;
  for i :=2 to n do
  begin
    t := false;
    for j := 2 to round(sqrt(i)) do
      if (i mod j = 0) then
        t := true;
    if not(t) and (n=i) then
     l:=true;
  end;
prost:=l;
end;
 
begin
ClrScr;
repeat
 write('M: ');
 readln(m);
until m in [1..mmax];
sum:=0;
randomize;
writeln('Èñõîäíûé ìàññèâ: ');
for ii:= 1 to m do
begin
 a[ii]:=random(10)-3;
 write(a[ii]:3);
 if prost(ii) then
  sum:=sum+a[ii];
end;
writeln;
writeln('Sum:=',sum);
readkey
end.