Создать новый массив, элементами которого являются суммы цифр каждого числа старого массива - Turbo Pascal

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

Дан двумерный массив, который содержит не более 10 строк и не более 10 столбцов. Создать новый массив, элементами которого являются суммы цифр каждого числа старого массива. Массив вывести в виде таблицы.

Решение задачи: «Создать новый массив, элементами которого являются суммы цифр каждого числа старого массива»

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

const
  nmax=10;
var
  a, b: array[1..nmax,1..nmax] of integer;
  n,m,i,j,x: integer;
begin
  repeat
    write('Г‚ГўГҐГ¤ГЁГІГҐ n, m (n<=10, m<=10): ');
    readln(n,m);
  until (n in [1..10]) and (m in [1..10]);
  writeln('Г€Г±ГµГ®Г¤Г*Г»Г© Г¬Г*Г±Г±ГЁГў:');
  for i:=1 to n do
  begin
    for j:=1 to m do
    begin
      a[i,j]:=random(999)+1;
      write(a[i,j]:4);
    end;
    writeln;
  end;
  writeln('ГЏГ®Г«ГіГ·ГҐГ*Г*Г»Г© Г¬Г*Г±Г±ГЁГў:');
  for i:=1 to n do
  begin
    for j:=1 to m do
    begin
      x:=0;
      while a[i,j]>0 do
      begin
        x:=x+a[i,j] mod 10;
        a[i,j]:=a[i,j] div 10;
      end;
      b[i,j]:=x;
      write(b[i,j]:4);
    end;
    writeln;
  end;
  readln;
end.

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

Создается переменная nmax со значением 10.
Создается двумерный массив a типа array[1..nmax,1..nmax] of integer.
Создаются переменные n, m, i, j, x со значениями типа integer.
В цикле repeat-until считываются значения n и m от пользователя.
Выводится сообщение с запросом ввода значений n и m.
Выводится сообщение с названием переменной a и ее значением.
Выводится сообщение с названием переменной b и ее значением.
В цикле for-in-do считываются значения i и j от пользователя.
В вложенном цикле for-in-do считываются значения a[i,j] от пользователя.
Выводится сообщение с названием переменной a[i,j] и ее значением.
Выводится сообщение с названием переменной b[i,j] и ее значением.
Выводится сообщение с названием переменной x и ее значением.
Выводится сообщение с названием переменной a[i,j] и ее значением.
Выводится сообщение с названием переменной b[i,j] и ее значением.
Выводится сообщение с названием переменной x и ее значением.
Выводится сообщение с названием переменной a[i,j] и ее значением.
Выводится сообщение с названием переменной b[i,j] и ее значением.
Выводится сообщение с названием переменной x и ее значением.
Выводится сообщение с названием переменной a[i,j] и ее значением.
Выводится сообщение с названием переменной b[i,j] и ее значением.
Запрашивается ввод с клавиатуры для завершения программы.