Дана матрица А(6,6). Найти в каждой строчке четные элементы и получить их суммы, образовав массив Sum. Вывести исходную матрицу А и полученный массив Sum — Pascal(Паскаль)

var
  a:Array[1..20,1..20] of integer;
  Sum:Array[1..20] of integer;
  i,j,n,sm:Integer;
begin
  n:=6;
  // заполняем массив A и формируем Sum;
  randomize;
  for i:=1 to n do
    begin
      Sum[i]:=0;
      for j:=1 to n do
        begin
          a[i,j]:=random(20);
          if a[i,j] mod 2 = 0 then
            Sum[i]:=Sum[i]+a[i,j];
        end;
     end;
  // выводим массив А
  for i:=1 to n do
    begin
      for j:=1 to n do
        write(a[i,j], ' ');
      writeln;
    end;
  writeln;
  writeln;
// выводим массив Sum
  for i:=1 to n do
    write(Sum[i], ' ');
  readln;
end.