Требуется вычислить и напечатать сумму тех из них, порядковые номера которых являются простыми числами. (PascalABC)

var a,s:real;
    n,i:integer;
begin
writeln('Вводите числа не равные 0, окончание ввода 0 ');
s:=0;
n:=0;
repeat
inc(n);
write('Число номер ',n,'=');
readln(a);
if a<>0 then
 begin
  if n>1 then
   begin
    i:=2;
    while (i*i<=n)and(n mod i<>0) do  inc(i);
    if i*i>n then s:=s+a;
   end;
 end;
until a=0;
write('Сумма чисел чьи порядковые номера простые числа=',s:0:2);
end.

  if (n>1) and (Odd(n) or (n=2)) then begin
    i:=3; while (Sqr(i)<=n) and (n mod i<>0) do Inc(i,2);
    if Sqr(i)>n then s:=s+a;
  end;

  n:=1; Write('Число #',n,': '); ReadLn(a);
  if a<>0 then begin
    Inc(n); Write('Число #',n,': '); ReadLn(a); s:=s+a;
  end;
  if a<>0 then
    repeat
      Inc(n); Write('Число #',n,': '); ReadLn(a);
      if Odd(n) then begin
        i:=3; while (Sqr(i)<=n) and (n mod i<>0) do Inc(i,2);
        if Sqr(i)>n then s:=s+a;
      end;      
    until a=0;