Вычислить в массиве b[1..20] минимального среди положительных элементов и его номера — Pascal(Паскаль)

const
  n = 10;

var
  i, itemp: integer;
  b: array [1 .. n] of integer;

begin
  for i := 1 to n do
  begin
    b[i] := random(20);
    write(' ', b[i]:3);
  end;
  writeln();
  writeln('-------');
  itemp := 0;
  for i := 1 to 20 do
  begin
    if (b[i] > 0) and (itemp = 0) then
      itemp := i;
    if (b[i] > 0) and (b[itemp] < b[i]) then
      itemp := i;
  end;
  writeln('-------');
  writeln(itemp);

end.