Вывести непарные числа в диапазоне от 200 до 350- Pascal(Паскаль)

program ver_1;
uses crt;
var i,n:integer;
begin
clrscr;
i:=250;
n:=300;
repeat
i:=i+1;
if i mod 2 <> 0 then
writeln(i);
until i = 300;
readln;
end.

var i:integer;
begin
i:=251;
while i<300 do
begin
  writeln(i);
  inc(i,2);
end;
readln;
end.