delphi .Введите восемь чисел и обусловьте меньшее число посреди положительных чисел

var

   a, m : integer;

begin

   writeln('введите 8 чисел');

   read(m);

   for var i := 2 to 8 do begin

       read(a);

       if a gt; 0 then if a lt; m then m := a;

   end;

   writeln('наименьшее из чисел = ', m);

end.

0 не учитывается, если 0 тоже считать как положительное число то

"if a gt; 0" нужно поменять на "if a gt;= 0"