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

var a:array[1..5,1..5]of integer;i,j,ans:integer;beginans:=a[1,1];for i:=1 to 5 do beginfor j:=1 to 5 do beginread(a[i,j]);if(a[i,j]<ans)then ans:=a[i,j];end;end;writeln(ans);end.