Найти наименьший положительный...

Найти наименьший положительный элемент массива Е(9) и его номер.

 

Program egor4774442;
uses crt;
const n=9;
var
  e:array[1..n] of integer;
  min, nom,i: integer;
begin
  writeln('*** alphaues is thinking... ***');
  writeln('***          OK             ***');
  randomize;
  for i:=1 to n do
    e:=random(100)-50;
  min:=e;
  nom:=1;
  writeln('Элементы массива:');
  for i:=1 to n do
    begin
      if (e<min) and (e>0) then
        begin
          min:=e;
          nom:=i;
        end;
      write (e:5);
    end;
  writeln();
  writeln('Наименьший положительный элемент массива:  ',min);
  writeln('Его номер:  ',nom);
end.