Написать программу с использованием процедуры или функции. Объявлен массив целых чисел. m размером 5х10. Заполнить массив числами из промежутка [-20,20]. Каждый элемент массива заменить его кубом. Исходный и измененный массив вывести на экран. Возведение в 3 степень организовать с помощью функции или процедуры

type  Mas = array [1..5, 1..10] of integer; //Объявляем тип массива

var  m: Mas;  //Переменная типа массива  i, j: integer;  //Переменные для цикла

procedure CubeMas(var m: Mas); //Процедура возведения в кубvar   i, j: integer;  //Локальные переменные цикла в процедуре

begin  write('Измененный массив: ');  for i:= 1 to 5 do    for j:= 1 to 10 do    begin      m[i, j]:= sqr(m[i, j]) * m[i, j];  //Возводим элемент массива в куб      write('m[', i, ', ', j, '] = ', m[i, j], '  ');  //Печатаем элемент массива    end;  //Конец цикла  writeln;  //Перевод на новую строкуend;  //Конец процедуры

begin  write('Исходный массив: ');  for i:= 1 to 5 do    for j:= 1 to 10 do    begin      m[i, j]:= random(40) - 20;  {Присваиваем элементу массива случайное значение из промежутка [-20, 20] }      write('m[', i, ', ', j, '] = ', m[i, j], '  ');  //Печатаем элемент массива    end;  //Конец цикла  writeln;  //Перевод на новую строку  CubeMas(m);  //Вызываем процедуру возведения в кубend. //Конец программы