Дан текстовый файл. Напечатать все нечетные строки — Pascal(Паскаль)

Program Zadacha;
uses crt;
var
 inf:text;
 q:string;
 i:integer;
 
begin
 clrscr;
 assign(inf,'in.txt');
 reset(inf);
 i:=1;
 while not eof(inf) do begin
    readln(inf,q);
    if i mod 2 =1 then writeln(q);
    i:=i+1;
 end;
 readkey;
end.