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

Program min_elem;

var a:array[1 ... 5,1 ... 5] of integer;

min, i, j: integer;

begin

{ввод матрицы}

for i:=1 to 5 do

for j:=1 to 5 do read (a[i]) ;

{решение задачи}

min:=a[1, 1];

for i:=1 to 5 do

for j:=1 to 5 do

if a[i, j] < min then min:=a[i, j];

write ('min=', min)

end.