Если количество четных элементов массива меньше нечетных то подсчитать определитель

uses crt;
const n=7;
var a:array[1..n,1..2*n-1] of integer;
    i,j,kc,kn:byte;
    d,p:longint;
begin
clrscr;
randomize;
writeln('Исходная матрица:');
kc:=0;
kn:=0;
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=random(10);
    write(a[i,j]:3);
    if odd(a[i,j]) then inc(kn)
    else inc(kc);
   end;
  writeln;
 end;
writeln('Количество четных=',kc,' количество нечетных=',kn);
if kc<kn then
 begin
  writeln('Четных меньше');
  {допишем справа первые n-1 столбцов}
  for i:=1 to n do
  for j:=n+1 to 2*n-1 do
  a[i,j]:=a[i,j-n];
  {найдем члены суммы со знаком +}
  d:=0;
  for j:=1 to n do
   begin
    p:=1;
    for i:=1 to n do
    p:=p*a[i,j+i-1];
    d:=d+p;
   end;
  {найдем члены суммы со знаком -}
  for j:=2*n-1 downto n do
   begin
    p:=1;
    for i:=1 to n do
    p:=p*a[i,j-i+1];
    d:=d-p;
   end;
  write('Определитель=',d);
 end
else if kc>kn then
 begin
  writeln('Нечетных меньше');
  for i:=2 to n do
  for j:=1 to i-1 do
  a[i,j]:=a[j,i];
  writeln('Симетричная матрица по верхнему треугольнику');
  for i:=1 to n do
   begin
    for j:=1 to n do
    write(a[i,j]:3);
    writeln
   end;
 end;
readln
end.