С помощью цикла for и функции Odd напишите программу, выводящую, все нечетные числа из диапазона 1..100

program qqq;
    uses crt;
var a,b;
begin
writeln('pls enter two numbers');
readln(a,b);
if a>b then writeln(a,'>',b);
if a<b then writeln(a,'<',b);
if a=b then writeln(a,'=',b);
end.

program qqq;
uses crt;
var i;
begin
for i:=1 to 100 do
if odd(i) then writeln(i,', ');
end.

Type systema=record
   planet_nunber: integer;
   planet_name: string;
   planet_volume: real;
   planet_diameter: real;
   distance_2_earth: real;
end;
var planeta: systema;

type
  systema = record
    nazvanie: string[20];
    nomer: integer;
    obiom: real;
    diametr: real;
    distance:real;
  end;
 
var
  planeta: array[1..8] of systema;
  i: integer;
 
 
begin
  writeln('вводим данные о планетах');
  for i := 1 to 8 do 
  begin
    with planeta[i] do 
    begin
      writeln('название');
      readln(nazvanie);
      writeln('объем');
      readln(obiom);
      writeln('diametr');
      readln(diametr);
      writeln('номер');
      readln(nomer);
      writeln('дистанция');
      readln(distance);
    end;
  end;
  for i := 1 to 8 do 
  begin
    writeln(planeta[i].nazvanie, ' ', planeta[i].nomer, ' ', planeta[i].obiom, ' ', planeta[i].diametr,' ',planeta[i].distance);
  end;
  readln;
end.

var i:integer