Помогите) Найти в матрице [4×4] наименьший элемент, и заменить все элементы матрицы меньше среднего арифметического min элементом (Паскаль).

var   matrix :array[1..4, 1..4] of integer;   min, sum, i, j :integer; begin   min := maxint;   sum := 0;   for i:=1 to 4 do     for j:=1 to 4 do       read(matrix[i, j]);   for i:=1 to 4 do     for j:=1 to 4 do     begin       if matrix[i, j] < min then         min := matrix[i, j];       sum := sum + matrix[i, j];     end;   for i:=1 to 4 do     for j:=1 to 4 do       if matrix[i, j] < (sum / 16) then         matrix[i, j] := min; end.