Встречено array, а ожидался оператор - Pascal ABC

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

ошибка в 26 строке

Program lab8_Smirnov_var10_2;
uses crt;
const
n=3;
m=4;
var
k,i,j:integer;
a:array[1..3, 1..4,] of integer;
begin
writeln('Введите число ',n,' строк по кол-ву ',m,' элементов ');
for i:=1 to n do
begin
for j:=1 to m do
readln(a[i,j]);
readln;
end;
k:=0;
for i:=1 to n do
begin
for j:=1 to m do
if a[i,j]<0 then k:=k+1;
n:=3;
m:=4;
var
k,i,j:integer;
a:array[1..3, 1..4] of integer;
begin
writeln('Введите число ',n,' строк по кол-ву ',m,' элементов ');
for i:=1 to n do
begin
for j:=1 to m do
readln(a[i,j]);
readln;
end;
k:=0
for i=1 to n do
begin
for j:=1 to m do
if a[i,j]<0 then k=k+1;
end;
writeln('Кол-во отриц. эл-тов равно= ',k);
end.

Решение задачи: «Встречено array, а ожидался оператор»

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

Program lab8_Smirnov_var10_2;
uses crt;
const
n=3;
m=4;
var
k,i,j:integer;
a:array[1..3, 1..4] of integer;
begin
writeln('Введите число ',n,' строк по кол-ву ',m,' элементов ');
for i:=1 to n do
for j:=1 to m do
readln(a[i,j]);
clrscr;
writeln('Матрица');
k:=0;
for i:=1 to n do
 begin
  for j:=1 to m do
   begin
    if a[i,j]<0 then k:=k+1;
    write(a[i,j]:5)
   end;
  writeln
 end;
writeln('Кол-во отриц. эл-тов равно= ',k);
end.

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

Программа lab8_Smirnov_var10_2 начинается с объявления использования и констант.
Затем определяется переменная n, которая представляет собой количество строк, вводимых пользователем.
Следующая константа m определяет количество столбцов, вводимых пользователем.
Переменная k инициализируется нулем, который будет использоваться для подсчета отрицательных чисел в матрице.
Объявляется массив a, который будет содержать введенные пользователем числа.
Программа запрашивает у пользователя ввести числа для строк и столбцов матрицы.
Затем программа очищает экран и выводит сообщение Матрица.
Цикл for начинается для каждой строки матрицы.
Внутри этого цикла также начинается другой цикл for, который проходит через каждый столбец матрицы.
Внутри второго цикла проверяется, является ли значение в текущей ячейке матрицы отрицательным.
Если это так, то переменная k увеличивается на единицу.
Значение в ячейке выводится на экран.
После окончания второго цикла выводится сообщение о количестве отрицательных элементов в матрице.
Программа заканчивается.