Найти сумму всех четных элементов двумерного массива целых чисел размерности 4*8. В чем ошибка в программе?

program p2;
var
i,j,s:integer;
m:array[4..8] of integer;
begin
s:=0;
for i:=1 to 4 do 
for j:=1 to 8 do
if a[i,j] mod 2=0 then 
s:=s+a;
end.

var m:array[1..4,1..8] of integer;
   i,j,s:integer;
begin
randomize;
s:=0;
for i:=1 to 4 do
 begin
  for j:=1 to 8 do
   begin
    m[i,j]:=random(20);
    write(m[i,j]:3);
    if m[i,j] mod 2=0 then s:=s+m[i,j];
   end;
  writeln
 end;
write('Сумма четных=',s)
end.

uses crt;
var m:array[1..4,1..8] of integer;
   i,j,s:integer;
begin
randomize;
s:=0;
for i:=1 to 4 do
 begin
  for j:=1 to 8 do
   begin
    m[i,j]:=random(20);
    write(m[i,j]:3);
   end;
  writeln
 end;
writeln('Четные элементы;');
for i:=1 to 4 do
for j:=1 to 8 do
if m[i,j] mod 2=0 then
 begin
  write(m[i,j]:4);
  s:=s+m[i,j];
 end;
writeln;
write('Сумма четных=',s)
end.