Вывести на экран дисплея порядковые номера нечетных элементов массива целых чисел

Var  a,b: array [100..25000] of integer; i,k,n,p: integer; begin for i: =100 to 25000 do   begin         b[i]: =i;         a[i]: =i;           n: =0;           while a[i]> 0 do               begin                     n: =n+(a[i] mod 10);                   a[i]: =a[i]div 10;             end;     p: =0;       while b[i]> 0 do             begin                 p: =p+(b[i] mod 5) ;               b[i]: =b[i]div 5;             end;           if(n=p) then inc(k);   end;   writeln(k); end.

Var a: array [1..5] of integer; i,max,c: integer; begin for i: =1 to 5 do begin write ('введите ',i,' число: '); readln (a[i]); end; max: =a[1]; for i: =1 to 5 do begin if max< a[i] then begin max: =a[i]; c: =i; end; end; writeln; write ('введённый массив: '); for i: =1 to 5 do begin write (a[i],' '); end; writeln; writeln ('максимальный элемент: ',max); if c=5 then write ('максимальный элемент стоит на последнем месте! ') else write ('максимальный элемент не стоит на последнем месте! ') end.