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

program Project10;
uses
  SysUtils;
var n,  sum, k,del,rez,kol,i : integer;
begin
writeln('введите кол-во чисел в послед-ть');
readln(k);
sum:=1;
kol:=1;
for i:=1 to k do
begin
writeln('введите элемент посл-ти');
readln(n);
if i>1 then begin
del := 2;
repeat
rez := n mod del;
if rez <> 0 then del := del + 1;
until rez = 0;
end;
if n=del then begin
sum:=sum+n;
kol:=kol+1;
end;
end;
if kol=0 then writeln ('простых чисел в послед-ти нет')
else
writeln ('простых чисел в посл-ти ',kol,'их сумма = ', sum);
readln;
end.