Ошибка Ожидался символ "точка" - Pascal ABC

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

Найдите пожалуйста ошибку

const
max=7;
var
a:array [1..max, 1..max] of integer;
c,j,i,q,n,m:integer;
 
begin
Randomize;
writeln('Введите размер матрицы(n m): ');
repeat read(n, m);
until (n in [1..Max]) and (m in [1..Max]);
writeln('матрица: ');
for i:=1 to n do
begin
for j:=1 to m do
begin
a[i, j]:=random(20)-10;
write(a[i, j]:4);
end;
writeln;
end;
writeln;
 writeln('Введите число q: ');
 readln(q);
end;

begin
C:=0;
 writeln('Элементы превышающие по модулю число ', q, ': ');
  for i:=1 to n do
   for j:=1 to m do
    if abs(a[i, j]) > q then
     begin
      inc(C);
      write(a[i, j], '  ');
     end;
 writeln;
 writeln('их кол-во: ', C);
end.

Решение задачи: «Ошибка Ожидался символ "точка"»

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

const
max=7;
var
a:array [1..max, 1..max] of integer;
c,j,i,q,n,m:integer;
 
begin
Randomize;
writeln('Введите размер матрицы(n m): ');
repeat
read(n, m);
until (n in [1..Max]) and (m in [1..Max]);
writeln('матрица: ');
for i:=1 to n do
    begin
    for j:=1 to m do
        begin
        a[i, j]:=random(20)-10;
        write(a[i, j]:4);
        end;
    writeln;
    end;
writeln;
writeln('Введите число q: ');
readln(q);
C:=0;
 writeln('Элементы превышающие по модулю число ', q, ': ');
  for i:=1 to n do
   for j:=1 to m do
    if abs(a[i, j]) > q then
     begin
      inc(C);
      write(a[i, j], '  ');
     end;
 writeln;
 writeln('их кол-во: ', C);
end.

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

Объявлены константа max и переменные a, c, j, i, q, n, m типа integer.
Введен блок Randomize, который инициализирует генератор случайных чисел.
Выводится запрос на ввод размера матрицы n и m.
В цикле repeat происходит проверка корректности введенных значений n и m до тех пор, пока они не будут корректными.
Выводится сообщение о матрице и ее элементах.
В цикле for происходит вывод всех элементов матрицы a в формате 4-х знаков после запятой.
Запрашивается число q.
В цикле for происходит проверка каждого элемента матрицы a на превышение абсолютного значения q.
Если элемент превышает q по модулю, то к переменной C прибавляется единица и выводится значение этого элемента.
Выводится сообщение о количестве элементов, превышающих q.
Программа завершается.