Определить все делители данного числа, включая единицу — Pascal(Паскаль)

program z_number;
uses crt;
var Number, CounterI:word;
begin
 
 clrscr;
 writeln('Введите число');
 readln(Number);
 writeln;
 writeln('Делители числа');
for CounterI := 1 to Number div 2 do
  if (Number mod CounterI = 0) then
   writeln(CounterI);
 writeln(Number);
 readln;  
end.