Для каждой строки вывести количество символов равное сумме элементов строки - Pascal

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

дан целочисленный двумерный массив значения элементов которого лежат в интервале[0;5].Вычеслить суммы элементов по строкам и используя символы (например:*,+,%,$,#...) для каждой суммы вывести соответсвующее количество символов.

Решение задачи: «Для каждой строки вывести количество символов равное сумме элементов строки»

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

type  A= array[1..4, 1..4] of integer;
      B = array[1..4] of integer;
 
// заполнение массива
procedure init_arr (var x:a);
var i, j: Integer;
begin
  randomize;
  Writeln('Array:');
  for i := 1 to 4 do begin
    for j := 1 to 4 do begin
      // random
      x[i,j]:=  random(6);
      write(x[i, j]:4);
    end;
    writeln;
  end;
  writeln;
end;
// Сумма по строкам
function Multi_maxs(x: a):B;
var pro,temp: Integer;
    i, j: Integer;
begin
  pro:=1;
  for i := 1 to 4 do begin
    temp:=0;
    for j := 1 to 4 do begin
        temp:= temp + x[i,j];
    end;
    Result[i]:= temp;
  end;
end;
 
//-----------------
основная программа
var mass: A;
    n: B;   
begin
  init_arr(mass);
  
  n:= Multi_maxs(mass);
  // вывод символов
  for i := 1 to 4 do begin
    for j :=n[i] downto 1 do begin
        write('*');
    end;
    writeln;
  end;
  
  readln;
end.

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

Создается тип данных A, который представляет собой массив из 4 строк, каждая из которых содержит 4 числа.
Создается переменная mass типа A.
Вызывается процедура init_arr, которая заполняет массив mass случайными числами от 0 до 5.
Создается функция Multi_maxs, которая принимает массив x типа A и возвращает массив Result типа B. Функция находит максимальное значение в каждой строке массива x и сохраняет его в массиве Result.
Основная программа начинается.
Вызывается функция Multi_maxs с аргументом mass и результат сохраняется в переменной n.
Выводится сообщение *, повторяющееся столько раз, сколько указано в массиве n.
Программа завершается, ожидая ввода пользователя.