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

uses crt;
var a,n,s:Longint;
    b:boolean;
begin
clrscr;
write('a=');readln(a);
writeln('Простые делители:');
n:=2;s:=0;
while a>0 do
 begin
  b:=true;
  while n <= round(sqrt(a)) do{пока делится на очередное число}
   begin
    if a mod n=0 then
     begin
      write(n,' ');
      if n mod 10=3 then s:=s+n;
      a:=a div n;
      b:=false;
      break;
     end;
    inc(n); {следующее}
   end;
  if b then
   begin
    write(a);{последнее}
    if a mod 10=3 then s:=s+a;
    break;
   end;
 end;
writeln;
writeln('Сумма делителей, оканчивающихся на 3=',s);
readln
end.