Найти наименьший делитель числа n, отличный от 1.

Var 
i, n: integer;
begin 
write('Введите число '); 
Readln(n); 
for i := 2 to n do   
if (n mod i) = 0 then begin     
write('Наименьший делитель равен ', i);     
Break;   
end;
end.