Программа нахождения всех делителей заданного целого числа N- Pascal(Паскаль)

Program pr32 (Input, Output); 
Var 
N : Integer;
i : Integer;
 
Begin
 
WriteLn ('PASCAL: Нахождения всех делителей заданного числа.'); 
Write ('Введите число, для которого ищутся делители: '); 
ReadLn (N); 
 
WriteLn ('Делители числа N = ', N, ' равны:'); 
 
For i := 1 To N Do
If (N Div i) = (N / i)Если целая часть дроби N/i равна дроби N/i,
Then WriteLn (i);i является очередным делителем числа N 
 
ReadLn;
End.