...
  readln(n);
  s := 0;
  for i := 2 to n div 2 do
   if n mod i = 0 then inc(s, i);
...

Условие поставлено нечетко..
klem4 абсолютно прав, если понимать условие буквально, но я все же хочу спросить автора темы: а не имелись ли в виду все простые множители? Если так, то решение будет другим..
Извиняюсь за вторжение - просто проверить на всякий случай..

Нет, всё верно! Задано найти именно сумму всех делителей заданного с клавиатуры числа...

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

Ну и в чем проблема?
Нашел же старую тему, где практически все уже реализовано...

Написать программу на Pascal.

Добавлено через 8 мин.
Найти все целые числа из промежутка от 100 до 300,
у которых сумма делителей равна k(k вводить с клавивтуры
написать программу на Pascal

ну напиши!
большая часть уже есть (см. сообщение #2). не можешь добавить один цикл?

program vibor;
Uses Crt;
var n, i, c: Integer;
Begin
clrscr;
for n := 100 to 300 do
begin
 c := n;
 for i := 1 to n div 2 do
   if n mod i = 0 then
     Inc(c, i);
 WriteLn;
 WriteLn(c);
End;
end.

Правильно?

Ты печатаешь ВСЕ числа, а надо - только те, у которых сумма делителей равна K ...