Заполните матрицу из 8 строк и 5 столбцов случайными числами в интервале [-10;10] вывести её на экран. Найти сумму всех четных элементов

var a:array [1..8,1..5]of integer; s,i,k:integer; Begin   randomize;   for i:= 1 to 8 do begin      for k:= 1 to 5 do begin         a[i,k]:= random(20)-10;         write(a[i,k]:3,' ');         if a[i,k] mod 2 = 0 then s:=s+a[i,k];      end;      writeln;   end;   writeln('s=',s); End.