Создать последовательность натуральных чисел, заканчивающихся нулем. Вычислить сумму тех из них, порядковые номера которых простые числа — Pascal(Паскаль)

const
  max=15;
var
  a:array[1..max] of integer;
  i,summ:integer;
function IsSimple(n:LongInt):boolean;
var
  i,m:integer;
begin
  m:=trunc(sqrt(n));
  issimple:=true;
  for i:=2 to m do
    if (n mod i)=0 then
    begin
      issimple:=false;
      break;
    end;
end;
begin
  summ:=0;
  writeln ('Массив:');
  
  for i:=1 to max do
  begin
    a[i]:=random(19)-4;
    if (i=max) then a[i]:=0;
    write(a[i],' ');
    if IsSimple(i)=true then
      inc(summ,a[i])
  end;
  
  writeln;
  writeln('Сумма = ',summ)
end.