В одномерном целочисленном массиве посчитать кол-во единиц. Заменить на 0 все четные элементы.Определить мин. Элемент и его номер.

program dv;var N, i, one, min, mini: integer;ar:array of integer;beginreadln(N);setlength(ar, N+1);for i:=1 to N do readln(ar[i]);for i:=1 to N do beginif ar[i]=1 then inc(one);end;for i:=1 to N do beginif ar[i]>0 then ar[i]:=0;end;min:=ar[1];mini:=1;for i:=2 to N do beginif ar[i]< min then beginmin:=ar[i]; mini:=i;end;end;        for i:=1 to N do write(ar[i], );        writeln;        writeln(min, , mini);end.