Дан массив С (1.n, 1.m), целых чисел. Додайте к каждому элементу строки 10. - Pascal

Формулировка задачи:

Дан массив С (1..n, 1..m), целых чисел.Додайте к каждому элементу строки 10. Начальный и изменен массивы выведите на экран

Решение задачи: «Дан массив С (1.n, 1.m), целых чисел. Додайте к каждому элементу строки 10.»

Листинг программы

const 
   n=5;
   m=4;
var
  c:array[1..n,1..m] of integer;
  i,j:integer;
begin
  randomize;
  writeln('Начальный массив':m*4,'  |  Измененный массив');
  for i:=1 to n do begin
    for j:=1 to m do begin
      c[i,j]:=random(50);
      write(c[i,j]:4);
      c[i,j]:=c[i,j]+10;
     end;
     write('  |  ');
     for j:=1 to m do write(c[i,j]:3);
     writeln;
    end;
end.

Объяснение кода листинга программы

Объявляются константы n и m, которые определяют размерность массива c.
Объявляется массив c типа array[1..n,1..m] of integer, который будет содержать начальные значения.
В цикле for i от 1 до n происходит заполнение массива c случайными значениями от 0 до 49 с помощью функции random(50).
В каждой итерации внутреннего цикла for j от 1 до m выводится элемент массива c[i,j] в формате 4-х символов.
После вывода элемента массива c[i,j] к его значению прибавляется 10.
После завершения внутреннего цикла выводится горизонтальная линия | .
В каждой итерации внешнего цикла for i от 1 до n выводится строка, состоящая из элементов массива c[i,1], c[i,2], c[i,3] и c[i,4] в формате 3-х символов каждый.
После завершения внешнего цикла выводится символ новой строки \n.