Найти значение минимального положительного элемента

program task1;
uses crt;
const
nmax = 10;
type
mas = array [1..nmax] of integer;
var
 m: mas;
 i, n: integer;
 min: integer;
 nom_m: integer;
begin
repeat
 write('Input real number of elements:'); readln(n);
 if (n<0) or (n>nmax) then
  writeln('Impossible! Try again.');
 until (n>=1) and (n<=nmax);
 writeln ('Input elements one by one:');
 for i:=1 to n do
  begin
  write(i, '-i:'); readln(m[i]);
  end;
 nom_m:=1;
 min:=1;
 for i:=2 to n do
 if(m[i]< min)  then
  begin
  min:=m[i];
  nom_m:=i;
  end
 else
 writeln('There are no such elements.');
 begin
  for i:=n to 1 do
   begin
   if(m[i] ? min) and (m[i]>0) and (m[i] mod 2=1) then
   writeln(m[i], ' ');
   end;
 end;
 writeln('the value of the element:', min);
 writeln('the number of the element:',nom_m);
end.

...
min:=32767;
for i:=1 to 10 do
begin
if (a[i]>0) and (a[i]<min) and (a[i] mod 2=1) then
begin
min:=a[i];
nmin:=i;
end;
end;
...

program task;
uses crt;
var a:array[1..10] of integer;
    i,min,nmin:integer;
begin
clrscr;
writeln('Enter to massiv');
for i:=1 to 10 do
begin
write('A[',i,']=');
readln(a[i]);
end;
writeln;
min:=32767;
for i:=1 to 10 do
begin
if (a[i]>0) and (a[i]<min) and (a[i] mod 2=1) then
begin
min:=a[i];
nmin:=i;
end;
end;
writeln('Minimal polojit=',min);
writeln('Nomer=',nmin);
readkey
end.