Найти количество делителей каждого из целых чисел от 480 до 500 - Pascal ABC - Ответ 3591593

uses crt;
const l='---------------------------------------------------------------------';
      s='| Число |                     Делители                    |  Кол-во |';
var i,j,kd: integer;
    ns: boolean;
 
begin
writeln(l);
writeln(s);
writeln(l);
for i:=480 to 500 do
    begin
    kd:=0; ns:=false;
    write('|',i:5,'  | ');
    for j:=2 to i div 2 do
        if i mod j=0 then
           begin
           inc(kd);
           if kd mod 12=0 then
              begin
              writeln('|         | ':16);
              write('|       | ');
              ns:=true;
              end;
           write(j:3,',');
           end;
    if ns then for j:=1 to 11-(kd mod 12) do write('    ')
       else for j:=1 to 12-(kd mod 12) do write('    ');
    writeln('|',kd:5,'|':5);
    end;
write(l);
end.