Найти все целые числа из промежутка от 100 до 300, у которых сумма делителей равна K

program zadacha;
var
i,j:integer;
c,k,s:real;
begin
writeln('Введите значение k');
readln(k);
for i:=100 to 300
do begin
s:=0;
for j:=1 to 300
do begin
if (i mod j)=0 then begin
c:=j;
s:=s+j;
end;
if s=k then writeln(i);
end;
end;
readln;
end.

c,k,s:real;

c,k,s:Longint

var
  i, s, h, k, p: integer;
 
begin
  write('введи К ');
  readln(k);
  for i := 1 to 9000 do {я увеличил диапазон чисел, тк в правильные ответы не подходили под изначальный диапазон. совершенные числа: 6 28 496 8126 33550336...}
  begin
    h := i;
    if i mod h = 0 then
      s := s + h;
    if s = k then
    begin
      writeln('S=', s);
      p := p + 1 {p означает ПОМОЩНИК}
    end
    else p := p + 0;
  end;
  if p = 0 then
    writeln('не верно');
end.

    h := i;
    if i mod h = 0 then
      s := s + h;

    else p := p + 0;