Написать программу: найти минимальный среди положительных элементов массива. Интервал: от -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.