Вывести на экран наибольший делитель натурального числа n, меньшего заданного натурального m - pascal abc

Var n,m,d:integer;
begin
readln(n,m);
d:=m-1;
while n mod d<>0 do d:=d-1;
writeln(d);
end.

Пример:
100 50
25

Program HelloWorld;var N,M,i:integer;beginN:=20;M:=5;i:=N div 2;
   while(i>1)do  begin   if(N mod i=0)and(i<M)   then break;   dec(i);   end;   if(i>1) then   writeln(i)   else writeln('Error');end.