pascalABC.NET.При выводе массивов выдаёт нули, в чём ошибка?

[watovl]

type
  mas=array[1..10,1..10] of integer;
  
procedure init(a:mas; cht:integer);
var
  i,j:integer;
begin
  writeln('Вывод нулевого массива');
  for i:=1 to cht do
    for j:=1 to cht do
      a[i,j]:=1;
end;

procedure vvodmas(a:mas; chr:integer);
var
  M:array of array of integer;
  k,l:integer;
begin
  SetLength(M,chr);
  for var t:=0 to chr-1 do
    SetLength(M[t],chr);
  writeln('Введите ',chr*chr,' элементов');
  for var i:=0 to M.Length-1 do
    for var j:=0 to M.Length-1 do
        read(M[i,j]);
end;

procedure randomarray(a:mas; cht:integer);
var
  i,j:integer;
begin
  writeln('Вывод случайно сгенерированного массива');
  randomize;
  for i:=1 to cht do
    for j:=1 to cht do
      a[i,j]:=random(10);
end;

procedure WriteArray(a:mas; chr:integer);
var
  i,j:integer;
begin
  for i:=1 to chr do
    for j:=1 to chr do
      write(a[i,j],' ');
  writeln;
end;

function RaznostSum(a:mas; chr:integer):integer;
var
  S1,S2,Rz:integer;
begin
  S1:=0;
  S2:=0;
  for var i:=1 to chr-1 do
    begin
      chr:=chr-1;
      for var j:=1 to chr do
        S1:=S1+a[i,j];
  
    end;
end;

var
  m:mas;
  n:integer;
begin
  writeln('Введите размер массива <10');
  read(n);
  init(m,n);
  WriteArray(m,n);
  randomarray(m,n);
  WriteArray(m,n);
  vvodmas(m,n);
  WriteArray(m,n);
end.

[ViktorR]

При выводе массивов выдаёт нули, в чём ошибка?

1. Форматируйте свой код. Выделите его и нажмите символ решётки #, который есть в меню окна, где вы набирали текст.

2. Смотрим, например, первую функцию:

procedure init(a:mas; cht:integer);
...

Можете ли вы объяснить что написано в этом заголовке?
a - параметр, который передаётся в тело функции. Как он туда передаётся, как вы думаете? Какие операции в теле функции можно делать с таким параметром?
Покороче: Скачайте книжку Т.А. Павловская, Программирование на ЯВУ. Паскаль, которая находится тут, рядом (см. литературу). Откройте на стр. 90, Глава 4 и прочитайте.
Затем найдите help по pascalABC.NET и уже в нём прочитайте как передаются параметры в п/п в этой версии Паскаля.
Так думаю, это то, что вам очень не хватает для получения ответа.

Как-то так, ...

[ViktorR]

PS: В программе есть и другие ошибки, например см.

function RaznostSum(a:mas; chr:integer):integer;

Но это следующая тема.
Вот рабочий фрагмент, но на FPC:

const nn = 10;
type
   mas = array[1..nn, 1..nn] of integer;

procedure init(var a : mas; cht : integer);
var
   i, j : integer;
begin
   writeln('Инициализация массива');
   for i := 1 to cht do
      for j :=1 to cht do
         a[i, j] := 1;
end;

procedure randomarray(var a : mas; cht : integer);
var
   i, j : integer;
begin
   writeln('Инициализация массива случайными числами');
   randomize;
   for i:=1 to cht do
      for j:=1 to cht do
         a[i,j] := random(10);
end;

procedure WriteArray(const a : mas; chr : integer);
var
   i, j : integer;
begin
   for i := 1 to chr do
   begin
      for j := 1 to chr do
         write(a[i, j],' ');
      writeln;
   end;
end;


var m : mas;
      n : integer;
begin
   writeln('Введите размер массива <10');
   readln(n);
   init(m, n);
   WriteArray(m, n);
   randomarray(m, n);
   WriteArray(m, n);
end.

Как-то так, ...