Найти минимальный элемент матрицы 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.