Дана целочисленная матрица размера 5 на 5. Найти минимальный элемент - Pascal ABC

const n=5;
var a:array [1..n,1..n] of integer;
i,j,min:integer;
BEGIN
min:=MaxInt;
For i:=1 to n do
  For j:=1 to n do
  If a[i,j]<min THEN min:=a[i,j];
Writeln (min);
END.