ребята помогите пожалуйста....язык Pascal)))

Ввести целочисленный двумерный массив A n×m, вывести его. Найти максимальный и минимальный элементы массива, среди тех, значения которых кратны двум. Найденные элементы удвоить, а все остальные утроить.

/// Находит минимальный и максимальный элементы, кратные двумprocedure FindElem(a: array [,] of integer; var min, max: integer);begin min := integer.MaxValue; max := integer.MinValue; for var i := 0 to a.GetLength(0) - 1 do for var j := 0 to a.GetLength(1) - 1 do if a[i, j] mod 2 = 0 then begin if a[i, j] > max then max := a[i, j]; if a[i, j] < min then min := a[i, j]; end;end;///Создает массив 10 на 10 целых чисел из рандома от 0 до 10function MakeArray: array [,] of integer;begin SetLength(result, 10, 10); for var i := 0 to result.GetLength(0) - 1 do for var j := 0 to result.GetLength(1) - 1 do result[i,j] := Random(0, 10);end;///Распечатывает массивprocedure PrintArray(a: array [,] of integer);begin for var i := 0 to a.GetLength(0) - 1 do begin for var j := 0 to a.GetLength(1) - 1 do Print(a[i,j]); writeln; end;end;beginvar c := MakeArray;var min, max: integer; PrintArray(c); FindElem(c, min, max); Writeln('min = ', min); Writeln('max = ', max);end.