Работа с циклическими конструкциями. Найти сумму делителей каждого из целых чисел от 300 до 320

Var i,j,s,min,imax,k:integer;
Begin
    writeln('-----------------');
    writeln('Число | ','Делители ');
    writeln('-----------------');
    min:=10000;
    For i:=280 to 300 do
    Begin
      s:=1+i;
      k:=2;
      write(i:4,'|':1,1:4);
      For j:=2 to i div 2 do
       if i mod j = 0 then
       Begin
         inc(s,j);
         write(j:4);
         inc(k);
       End;
      if (k<=min)and(i>imax) then
      Begin
        min:=k;
        imax:=i;
      End;
      write(i:4);
      writeln;
      writeln('Сумма делителей: ',s);  
    End;
    writeln('Max число с min кол-ом делителей: ',imax);
End.

uses crt;
const l='--------------------------------------------------------------------------';
      s='| Число |                     Делители                         |  Сумма  |';
var i,j,kd,sum,minsum,min: integer;
    ns: boolean;
 
begin
writeln(l);
writeln(s);
writeln(l);
for i:=300 to 320 do
    begin
    kd:=0; ns:=false; sum:=0;
    write('|',i:5,'  | ');
    for j:=2 to i div 2 do
        if i mod j=0 then
           begin
           inc(kd); inc(sum,j);
           if kd mod 13=0 then
              begin
              writeln('|         | ':16);
              write('|       | ');
              ns:=true;
              end;
           write(j:3,',');
           end;
    if ns then for j:=1 to 12-(kd mod 13) do write('    ')
       else for j:=1 to 13-(kd mod 13) do write('    ');
    writeln('|',sum:6,'|':4);
    if i=300 then
       begin
       min:=300;
       minsum:=sum;
       end else
       if (kd>0) and (sum<minsum) then
          begin
          min:=i;
          minsum:=sum;
          end;
    end;
write(l);
readln;
writeln('Минимальная сумма делителей (',minsum,') у числа ',min);
end.