(Pascal) Найти наименьший элемент в числовом массиве m(20) который лежит в интервале [10..50] /// Короче говоря,нужна программа с массивом,вводим 20 любых чисел,и из этих чисел нужно вывести наименьшее число которое лежит в интервале от 10 до 50.

program min; const MN = 10; MX = 50;var m: array [0..19] of integer; i, min: integer; begin min := MX; writeln('введите массив: '); for i := 0 to 19 do readln(m[i]); for i := 0 to 19 do if (m[i] < min) and (m[i] >= MN) then min := m[i];writeln('минимальное значение в промежутке [', MN, ';', MX, ']: ', min); end.