Паскаль

[mistertvister]

Здрасти.
if q=2 then begin
sum:=0;
for i:= 1 to w do
for j:=1 to e do begin
if a[i,j] mod 2=0 then sum:=sum+a[i,j];
writeln('=*==*==*=sum=',sum);
writeln('0.To execute other operations') ;
readln;
readln;
goto 0;
end;
end;
не могу найти ошибку. это операция над матрицой, должна суммировать элементы на главной диагонали.

[mistertvister]

ой я сам разобрался извините за беспокойство