Найти минимальный элемент матрицы 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]  End; 
 Writeln(Минимальный элемент L[,k,,,k1,]= ,min);
End.