Двумерный массив А (4;4) найдите максимальный элемент

program nau;var a: array [1..4, 1..4] of real; i,j: integer; k,l: real;beginfor i:= 1 to 4 dofor j:= 1 to 4 dobeginreadln (a[i,j]);end;k:=a[1,1];for i:= 1 to 4 dofor j:= 1 to 4 doif a[i,j]>k then k:=a[i,j];writeln ('наибольший элемент массива = ',k);end.