Найти четные значения диагоналей матрицы - Pascal

program pr1;
const matrixSize=20; minVal=1;maxVal=9;
var
  matrix:array[1..matrixSize, 1..matrixSize] of byte;
  evenValOfDiags:array[1..matrixSize*2] of byte;
  index:byte;
  row,column:byte;
begin
  Randomize();
  for row:=1 to matrixSize do begin
    for column:= 1 to matrixSize do begin
      matrix[row,column]:=Random(maxVal-minVal+1)+minVal; Write(matrix[row,column],' ');
      if ((row=column ) or ((abs(column-matrixSize-1))=row)) and (not odd(matrix[row,column])) then  begin
        inc(index); evenValOfDiags[index]:=matrix[row,column];
            end;
        end; writeln;
    end;
  WriteLn('Четные числа в диагоналях матрицы: ');
  For column:=1 to index do begin
    write(evenValOfDiags[column],'; ');
    end; readln;
end.