Наименьший и наибольший делитель числа - Pascal

Дано одно число.Нужно найти наименьший и наибольший делитель этого числа.

Листинг программы

if n mod i=0 then
 begin
  if i<mn then mn:=i;
  if i>mx then mx:=i;
 end;

Объяснение кода листинга программы

Переменная n представляет собой число, для которого мы ищем делители.
Переменная i представляет собой текущий делитель, который мы проверяем на равенство нулю (n mod i=0). Если это условие выполняется, то мы переводим i в переменную mn, которая будет хранить наименьший из найденных делителей.
Затем мы проверяем, является ли i больше mx. Если да, то присваиваем mx значение i. Таким образом, mx будет хранить наибольший из найденных делителей.
Код завершается, когда i становится больше mx.