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

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