Программа, выписывающая числа, делящий на вводимое пользователем число без остатка

[richard.hendricks]

Суть программы я написал в названии темы. Вот, собственно, код. Буду рад, если вы поможете исправить ошибки.

uses crt;
var a, n : integer;
procedure varp;
var a, n : integer;
begin
for a:=1 to 1000 do begin
if n mod a = 0 then writeln (a);
end;
end;
begin
writeln ('Введите число'); readln (n);
varp; 
end.

[dimon_snake]

Напутали с глобальными и локальными переменными. Зачем создавать глобальную переменную a, и локальную переменную a.

procedure varp(n:integer);
var i:integer;
begin
for i:=1 to 1000 do 
if n mod i = 0 then Writeln(i);
end;
var n:integer;
begin
Readln(n);
varp(n);
end.

[FPaul]

лучше через цикл while.

  a:=1;
  while (n >= a) do
  begin
    if n mod a = 0 then
      writeln(a);
    inc(a);
  end;

[ViktorR]

Возможно, что тема и не актуальна, но всё же.
Нафига искать делители во всём диапазоне?
Если найден делитель a, т.е. n MOD a = 0, то найден и второй делитель: n DIV a.
Т.о. цикл может быть организован до sqrt(n) и начинаться с двойки.


Как-то так, ...