PASCAL編程 ：200以內的奇數，怎樣每五個換行？急！！！

i,j:longint;

begin

j:=0;

for i:=1 to 200 do

begin

if i mod 2=1 then begin

write(i,' ');

inc(j);

end;

if j mod 5=0 then writeln;

end;

readln

end;