Вопрос помогите найти ошибку в программе (ПАСКАЛЬ)

[visa1337visa]

задача заключается в том что из матрицы заполненной случайными числами нужно сформировать одномерный массив элементами которого являются сумма цифр элемента кратная 3

program zd4;
const N = 3; M = 4;
var
mtx: array[1..N,1..M] of byte;
arr: array[1..N*M] of byte;
i,j,k,z: byte;
begin
randomize;
for i:=1 to N do begin
for j:=1 to M do begin
mtx[i,j] := random(100);
write(mtx[i,j]:3);
end;
writeln;
end;
writeln;
k := 0;
for j:=1 to M do
for i:=1 to N do begin
if (i+j mod 3 = 0) then
z:=z+mtx[i,j];
z := mtx[i,j];
write(z:3);
end;
writeln;
end.

 

[Констанцыя]

с низу 3 строка end; надо писать без ";"

 

[данил]

z:=z+mtx[i,j]; z := mtx[i,j]; при наличии второй строки первая теряет смысл.

 

[uiAceterrykep]

Не очень понял условие задачи но подозреваю что в этом фрагменте if (i+j mod 3 = 0) then z:=z+mtx[i,j]; z := mtx[i,j]; отсутствует else