Дан массив из целых чисел А(5,5). Найти малый положительный элемент.

program zz1;
const n=5; //задаем количество частей в массиве
var mas:array[1..n,1..n] of integer;
i,min,j:integer;
begin
for i:=1 to n do
for j:=1 to n do
mas[i,j]:=random(21)-10; //вводим числа в массив рандомно от 1 до 20

for i:=1 to n do
begin
for j:=1 to n do
write(mas[i,j]:5); //выводим числа из массива на экран
writeln; //перебегаем на новейшую строку для вывода
end;
min:=1000000; //задаем начальное значение малого числа (очень вероятное)
for i:=1 to n do
for j:=1 to n do
if (mas[i,j]gt;0)and(mas[i,j]lt;min) then min:=mas[i,j]; //проверяем, если число из массива больше нуля и меньше минимального, то записываем его в малое
write( малый положительный элемент массива - ,min); //выводим ответ
end.