Почему программа не выводит матрицу?

Question

[SevaSava]

В моей программе есть функция вывода матрицы - MatrixGen. Вместо неё программа выводит нули. В чём ошибка?
UPD.: переписал программу. Но теперь она почему-то выводит больше чисел в матрице, чем нужно. В чём проблема?

{Учебная программа по генерации и выводу массива}
program arraytest;
uses crt;

type TArr = array [1..15] of integer;
     TArr2 = array [1..15,1..30] of integer;
var i,j: byte;
    A: TArr;
    B,C: TArr2;
    n,m: byte;


procedure ArrGeneration;                //Процедура генерации массива
begin
     for i:=1 to 15 do
         begin
              Randomize;
              A[i]:=Random(40);
              Writeln(A[i],' ');
         end;
end;

function MatrixGen(var n, m: byte): integer;
begin
     for i:=1 to n do
         begin
         for j:=1 to m do
             begin
                  Randomize;
                  B[i,j]:=Random(40);
                  Writeln(B[i,j],' ':3);
             end;
         end;

end;

begin
     clrscr;
     Writeln('Массив целых чисел - от 1 до 15:');
     ArrGeneration;
     Writeln('');
     Writeln('Сколько столбцов должно быть в матрице?');
     Readln(n);
     Writeln('А строк?');
     Readln(m);
     Writeln(' ');
     MatrixGen(n, m);
end.

Comments

[Ivan Ustûžanin]

В чём ошибка?

в 12 строке, как минимум, а вообще тут одна сплошная ошибка, т.к. я не вижу заполнения глобального массива B

[SevaSava]

Ivan Ustûžanin, да, что-то я накосячил. Сейчас переписал программу, она почему-то выводит в матрице больше чисел, чем нужно

[Ivan Ustûžanin]

SevaSava, ввёл 4 и 4 получил 16 строк, ввёл 2 и 3 получил 6 строк, так что этот момент работает правильно

[Ivan Ustûžanin]

SevaSava, собственно выхлоп такой (у модифицированной проги):

Free Pascal Compiler version 3.2.2+dfsg-9ubuntu1 [2022/04/11] for x86_64
Copyright (c) 1993-2021 by Florian Klaempfl and others
Target OS: Linux for x86-64
Compiling main.pas
Linking a.out
54 lines compiled, 0.0 sec

Массив целых чисел - от 1 до 15:
  6 35 13 17 18 27 26 36 23 16 29 33  9 24  2

Сколько столбцов должно быть в матрице?
2
А строк?
3

 24 14
 16 35
 30 33


...Program finished with exit code 0

модифицированная прога

{Учебная программа по генерации и выводу массива}
program arraytest;

type
TArr = array [1..15] of integer;
TArr2 = array [1..15,1..30] of integer;

var
A: TArr;
B: TArr2;
n,m: byte;

procedure ArrGeneration;
var
i: byte;
begin
    for i := 1 to 15 do
    begin
        A[i] := Random(40);
        Write(A[i]:3);
    end;
    Writeln();
end;

function MatrixGen(var x, y: byte): integer;
var
ix, iy: byte;
begin
    for iy := 1 to y do
    begin
        for ix := 1 to x do
        begin
            B[ix,iy] := Random(40);
            Write(B[ix,iy]:3);
        end;
        Writeln();
    end;
    MatrixGen := x * y;
end;

begin
    Randomize;
    Writeln();
    Writeln('Массив целых чисел - от 1 до 15:');
    ArrGeneration;
    Writeln();
    Writeln('Сколько столбцов должно быть в матрице?');
    Readln(n);
    {n := 5;}
    Writeln('А строк?');
    Readln(m);
    {m := 4;}
    Writeln();
    MatrixGen(n, m);
end.