Pascal/Turbo Pascal - precedimiento con operador odd

hola a todos, estoy haciendo un ejercicio que me pide mostrar por pantalla los numeros pares comprendidos entre dos numeros y que utilice el operador odd.

yo he echo el siguiente codigo pero no se como meter el operador odd alguien puede ayudarme? muchas gracias .

program numeros_pares_entre;
var
num_1,num_2,i:integer;


procedure num_par(num_1:integer;num_2:integer);
begin
for i:= num_1 to num_2 do
begin
write(i,'-');
end;
end;
begin

writeln('Introduce el primer numero: ');
readln(num_1);
writeln('Introduce el segundo numero ');
readln(num_2);
num_par(num_1,num_2);readln;
end.

Muchas gracias, estuve intentando hacer algo parecido pero no encontre la forma.
Ahora me ha quedado claro con tu ejemplo.
Saludos.

ahora me pide lo siguiente:
Pida al usuario dos números.
Invoque al procedimiento anterior asegurándose de que el primer número del primer parámetro real se corresponde al número más pequeño introducido por el usuario y el segundo al más grande.

yo he echo esto pero no me compila, me puedes echar una mano? Muchas gracias.

program numeros_pares_entre;
var (*variantes globales*)
num_1,num_2,i:integer;


procedure num_par(num_1:integer;num_2:integer); (*procedimiento para que lea los numeros pares*)

begin

for i:= num_1 to num_2 do
begin
if odd(i)= false then
write(i,'-');
end;
end;
begin

writeln('Introduce el primer numero: ');
readln(num_1);
writeln('Introduce el segundo numero ');
readln(num_2);

if (num_1)<(num_2) then
begin
num_par(num_1,num_2);
else
write('Introduzca el primer numero mayor que el segundo');
end;
begin
num_par(num_1,num_2); (*llamada a procedimiento*)

end.