Определить первое положительное нечетное число

{1) дана последовательность целых чисел. окончание последовательности число 99999,оно не входит в последовательность. 
определить первое положительное нечетное число,если такого числа нет,вывести соответствующее уведомление.}
var
  x: integer; flag: boolean;
 
begin
  
  
  writeln('введите число');
  readln(x);
  flag := true;
  while (x <> 99999 ) and flag  do 
    if (x>0) and (odd(x)) then
    begin
     writeln('первое положительное нечетное число', x); flag := false;
    end 
    else 
    begin
     write('введите х');
      read(x);  
      
    end;
  if x = 99999 then writeln('такого числа нет')
end.

Uses
 CRT;
Var
 i,k,ind,l,chislo:longint;
begin
ind:=0; l:=0;
k:=0;
repeat
 inc(k);
 write('Ââåäèòå ',k,'-e ÷èñëî: ');
 readln(i);
 if (i>0) and odd(i) and (i<>9999) then
 begin
  inc(l);
  if l=1 then
  begin
   chislo:=i;
   ind:=k;
  end;
 end;
until i=9999;
if ind<>0 then write('×èñëî:=',chislo,' åãî èíäåêñ:=',ind)
else writeln('Íåò íå÷¸òíûõ ïîëîæèòåëüíûõ.');
end.

Uses
 CRT;
Var
 i,k,ind,chislo:longint;
 t:boolean;
begin
ind:=0;
k:=0;
t:=true;
repeat
 inc(k);
 write('Ââåäèòå ',k,'-e ÷èñëî: ');
 readln(i);
 if (i>0) and odd(i) and (i<>9999) and t then
 begin
   t:=false;
   chislo:=i;
   ind:=k;
 end;
until i=9999;
if ind<>0 then write('×èñëî:=',chislo,' åãî èíäåêñ:=',ind)
else writeln('Íåò íå÷¸òíûõ ïîëîæèòåëüíûõ.');
end.