Не запускается программа. Программа должна заполнить массив символом. Через процедуру.

[anasttb]

Спасибо.

[ZX Spectrum-128]

const
  n_max = 100;

type
  matr = array [1..n_max, 1..n_max] of char;

var
  i, j, n, m: integer;
  mas: matr;
  ch: char;

procedure symvol(n, m: integer; ch: char; var mas: matr);
var
  i, j: integer;
begin
  for i := 1 to n do
    for j := 1 to m do
      mas[i, j] := ch;
end;

begin
  writeln('Введите размерность: ');
  readln(n, m);
  Writeln('Введите символ: ');
  readln(ch);
  symvol(n, m, ch, mas);
  for i := 1 to n do
  begin
    for j := 1 to m do
      write(mas[i, j], ' ');
    writeln;  
  end;
end.