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

Var a:array[1..5,1..5]of integer;
i,j,ans:integer;
begin
ans:=a[1,1];
for i:=1 to 5 do begin
for j:=1 to 5 do begin
read(a[i,j]);
if(a[i,j]<ans)then ans:=a[i,j];
end;end;
writeln(ans);
end.