Найти минимальный элемент матрицы L(15,15) программа паскаль

Program asd; Const   N=15;   M=15; Var   l:array [1..15,1..15] of integer;   min,i,j,k,k1:integer; Begin   min:=l[1,1];   Writeln('Введите элементы матрицы:');   For i:=1 to n do      For j:=1 to m do         Begin         Write('L[',i,',',j,']=');         Readln(l[i,j]);         If l[i,j]