Написать программу: найти минимальный среди положительных элементов массива. Интервал: от -20 до 150

var
i, min, n : integer; // объявляем переменные целочисленного типа.
arr : array of integer; // объявляем массив.
Begin
writeln('Введите размерность массива:'); // вывод строки на экран.
read(n); // считываем размерность массива.
setlength(arr,n); // выделяем память под массив.
for i:= 0 to (n-1) do // начало цикла.
begin
arr[i] := random(-20, 150); // заполняем элемент массива числом из диапазона -20; 150.
if (i = 0) then min := arr[i]; // считаем первый элемент - минимальным.
if (arr[i] > 0) then // если элемент положительный.
begin
if (arr[i] < min) then min := arr[i]; // сравниваем элемент с минимумом.
end;
end;
writeln('Минимальный среди положительных элементов массива равен: ', min);
End.