Введите с клавиатуры два целых нечетных числа (первое больше второго). Выведите

var n1,n2,i: integer;
begin
write(Ввод числа 1: ); readln(n1);
while (n1 mod 2 lt;gt; 1) or (n1 = 1) do
begin
write(Число должно быть нечётным и больше 1. Повторите ввод: ); readln(n1);
end;
write(Ввод числа 2: ); readln(n2);
while (n2 gt;= n1) or (n2 mod 2 lt;gt; 1) do
begin
write(Число 2 должно быть меньше числа 1 и быть нечётным. Повторите ввод: ); readln(n2);
end;
write(Последовательность нечётных чисел меж , n2, и , n1, : );
for i:=n2 to n1 do
if (i mod 2 = 1) then write(i, );
end.