Ошибка 0 - выход за границы диапазона изменения индекса - Pascal

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

program masiv;
  var i, j, n, sum: integer;
      mas: array[1..3, 1..5] of integer;
          begin
            writeln('введите масив: ');
            read (n);
            writeln ('свормированый масив');
              for i:=1 to 3 do
                  begin
                    mas[i,j]:=random(51);
                    writeln(mas[i,j]);
                  end;
                      sum:=0;
                        for j:= 1 to 5 do
                          sum:=sum+mas[i,j];
                          writeln('Сума = ', sum:4);
          end.

Решение задачи: «Ошибка 0 - выход за границы диапазона изменения индекса»

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

program masiv;
  var i, j, sum: integer;
      mas: array[1..3, 1..5] of integer;
          begin
            writeln ('сформированый масив');
            sum:=0;
            for i:=1 to 3 do
             begin
              for j:= 1 to 5 do
               begin
                mas[i,j]:=random(51);
                write(mas[i,j]:3);
                sum:=sum+mas[i,j];
               end;
              writeln
             end; 
            writeln('Сума = ', sum);
          end.

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

Объявление переменных:
- i, j, sum: integer (целочисленные переменные i, j, sum).
- mas: array[1..3, 1..5] of integer; (многомерный массив mas размером 3х5).
Вывод строки сформированый масив.
Инициализация переменной sum нулём.
Цикл for i:=1 to 3 do (цикл от 1 до 3):
- Вложенный цикл for j:=1 to 5 do (цикл от 1 до 5):
  - Заполнение элемента массива mas[i,j] случайным числом от 0 до 50.
  - Вывод значения элемента массива mas[i,j] с выравниванием в три символа.
  - Добавление значения элемента массива mas[i,j] к переменной sum.
Вывод пустой строки.
Вывод строки Сума и значения переменной sum.
Конец программы. Этот код создает массив 3х5, инициализирует его случайными числами от 0 до 50, выводит его на экран и вычисляет сумму всех его элементов.