Найти все числа делителей к и l в диапозоне чисел m и n (m> n)

Var k,l,m,n,i:integer;
begin
writeln('Введите k,l,m,n соответственно');
read(k,l,m,n);
for i:=n to m do
if (k mod i=0) and (l mod i=0) then writeln(i);
end.