Найти номера нечетных элементов одномерного массива, подсчитать количество нечетных элементов

if a[i] mod 2=0 then write(i);
for i:=1 to 5 do
Begin
If (min>mas[i]) then
Begin
min:=mas[i];
end;

k:=0;
for i:=1 to 5 do
if odd(a[i]) then
begin
  writeln('Номер нечетного элемента: ',i);
  inc(k);
end;
writeln('Кол-во нечетных элементов: ',k);

var a:array[1..20] of integer;
    i,c:integer;
begin
  for i:=1 to 20 do Begin
    a[i]:=Random(20)-10;
    write(a[i],' ');
  End;
  for i:=1 to 20 do
    if a[i] mod 2 <> 0 then Begin  //проверка на нечётность
      write(i,' ');  //выводим номер елемента
      inc(c);  // увеличиваем их количество
    End;
    writeln(c); //выводим количество
    readln;
end.

var a:array [1..20] of integer;
    n,i,t:integer;
begin
  writeln('Введите размерность массива');
  readln(n);
  Randomize;
  for i:=1 To n do a[i]:=Random(20);
  T:=0;
  for i:=1 to n do
  if not(a[i] mod 2 = 0) then
    begin 
      writeln('Нечетный элемент под номером ',i); 
      t:=t+1;
    end;
writeln('В массиве ',t,' нечетных элементов');
end.

program primer;
var
i,n,s: integer;
mas: array [1..15] of integer;
     begin
     writeln('Введите число элементов');
     readln(n);
               for i:=1 to n do
               readln(mas[i]);
                              for i:=1 to n do
                              begin
                                   if i mod 2=1 then
                                   begin
                                   writeln('Элемент под номером =',i);
                                   s:=s+mas[i];
                                   end;
                              end;
               writeln('Summa=',s)
    end.

var a:array [1..10] of integer;
    i,j:byte;
begin
  randomize;
  for i:=1 to 10 do begin
    a[i]:=random(30);
    write(a[i],' ');
  end;
  writeln;
  writeln('номера нечётных элементов');
  j:=0;
  for i:=1 to 10 do
    if a[i] mod 2<>0 then begin
      write(i,' ');
      inc(j);
    end;
  writeln;
  writeln('кол-во нечётных элементов');
  writeln(j);
  readln
end.