Составить программу выводящую на экран все натуральные делители числа (введите пользователем с клавиатуры)- Pascal(Паскаль)

uses crt;

var
  chislo, i: integer;

begin
  clrscr;
  writeln('vvedite chislo');
  readln(chislo);
  for i := 1 to chislo do
  begin
    if chislo mod i = 0 then
      write(' ', i);
  end;
  readln;

end.