Обработка динамической матрицы

uses
crt;
 
type
  type_arr = array of array of integer;
 
var
  arr: type_arr;
  i, j: integer;
  sum: integer;
  n: integer;
 
function diagonal(arr1: type_arr): integer;
var
  sum1: integer;
  i, j: integer;
begin
  sum1 := 0;
  j := n - 1;
  for i := 0 to arr1.Length - 1 do 
  begin
    if odd(arr1[i][j]) then
      sum1 := sum1 + arr1[i][j];
    j := j - 1;
  end;
  diagonal := sum1;
end;
 
begin
  write('Размерность массива? ');
  readln(n);
  SetLength(arr, n);
  for i := 0 to n - 1 do
    SetLength(arr[i], n);
  randomize;
  for i := 0 to arr.Length - 1 do 
  begin
    for j := 0 to arr.Length - 1 do 
    begin
      arr[i, j] := random(n) + 1;
      if i = (n - j - 1) then
        textcolor(Green)
      else
        textcolor(Red);
      write(arr[i, j]:4);
    end;
    writeln;
  end;
  sum := diagonal(arr);
  writeln(sum);
end.

uses crt;
const nmax = 20;
type matr = array [1..nmax,1..nmax] of integer;
var i,j,n,s,q: integer;
    a: matr;
begin
  read(n);
  randomize;
  for i:=1 to n do
    begin
      for j:=1 to n do
        begin
          a[i,j]:=random(-100,100);
          if (a[i,j] mod 2 <> 0) and (j=n-i+1) then
            begin
              s:=s+a[i,j];
              TextColor(Green);
            end;
          write(a[i,j]:5);
          TextColor(White);
        end;
       writeln();
     end;
    writeln('Сумма: ',s);
end.