Заполнить двумерную матрицу случайными числами в диапазоне от 20 до 50 и вывести на экран — Pascal(Паскаль)

program pro2_ivanov;
 
var
  a: array [1 .. 10, 1 .. 10] of integer;
  i, j, sum: integer;
 
begin
  sum := 0;
  randomize;
  for i := 1 to 10 do
  begin
    for j := 1 to 10 do
    begin
      a[i, j] := random(31) + 20;
      Write(a[i, j], ' ');
      if (a[i, j] mod 2) = 0 then
        sum := sum + a[i, j];
    end;
    WriteLn;
  end;
  WriteLn;
  WriteLn('Сумма чётных чисел=', sum);
  ReadLn;
 
end.