Дано число N. Найти сумму простых делителей числа N — Pascal(Паскаль)

uses crt;
var n,i,j,s:integer;
    f:boolean;
begin
clrscr;
write('n=');
readln(n);
if n<2 then write('Простых делителей нет!')
else
 begin
  writeln('Простые делители числа ',n,':');
  s:=0;
  for i:=2 to n do
  if n mod i=0 then
   begin
    f:=true;
    j:=2;
    while f and(j<=round(sqrt(i)))do
     begin
      if i mod j=0 then f:=false
      else j:=j+1;
     end;
    if f then
     begin
      write(i,' ');
      s:=s+i;
     end;
   end;
  writeln;
  write('Их сумма=',s);
 end;
readln
end.