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

var

   a, m : integer;

begin

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

   read(m);

   for var i := 2 to 8 do begin

       read(a);

       if a > 0 then if a < m then m := a;

   end;

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

end.

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

"if a > 0" нужно заменить на "if a >= 0"