вывод на экран наибольшего делителя натурального числа N, меньше заданного натурального M

[Fatality]

Люди, прошу, выручайте! Помогите решить задачку! Завтра сдавать нужно, а у меня никак не получается решить...
Составить программу вывода на экран наибольшего делителя натурального числа N, меньше заданного натурального M. Не могу понять, как задать условие "меньше заданного натурального М". Выручьте пожалуйста!

[Sm1Le]

x: delitel;


For i:=1 to m do
begin
if n mod i = 0 then
begin
x:=i;i:=i+1;
end
else
i:=i+1;
end;

[MalexG]

Натуральный ряд чисел: 0,1,2,3,4,5,6,7,8,9,10 и т.д. до бесконечности.

x: delitel;
...
for  i := m-1 downto 1 do
begin
  if n mod i = 0 then
  begin
    x := i;
    break;
  end
  else
    dec(i);
end;
writeln('Наибольший делитель числа N, меньший M = ', x);