Подсчёт количества нечетных элементов, расположенных выше побочной диагонали

uses crt;
var a:array[1..100,1..100] of integer;
    i,j,k,n:integer;
 begin
  ClrScr;
  Randomize;
  repeat
   Write('n=');
   Readln(n);
  until n>1;
   for i:=1 to n do
    begin
     for j:=1 to n do
      begin
       a[i,j]:=random(8)+2;
       Write(a[i,j]:3);
      end;
     Writeln;
    end;
  for j:=1 to n-1 do
   begin
    for i:=1 to n-j do
     if a[i,j] mod 2<>0 then
      k:=k+1;
   end;
  Writeln('Кол-во ',k);
  Readln;
 end.

uses
  crt;
var
  a:array[1..100,1..100] of integer;
  i,j,k,n:integer;
begin
  clrscr;
  write('n=');
  readln(n);
  for i:=1 to n do
  begin
    for j:=1 to n do
    begin
       a[i,j]:=random(8)+2;
       Write(a[i,j]:3);
    end;
    writeln;
  end;
  k:=0;
  for i:=1 to n-1 do
  begin
    for j:=1 to n-i do
      if a[i,j] mod 2=0 then
        inc(k);
  end;
  writeln('Êîë-âî ',k);
end.

uses
  crt;
var
  a:array[1..100,1..100] of integer;
  i,j,k,n:integer;
begin
  clrscr;
  write('n=');
  readln(n);
  for i:=1 to n do
  begin
    for j:=1 to n do
    begin
       a[i,j]:=random(8)+2;
       Write(a[i,j]:3);
    end;
    writeln;
  end;
  k:=0;
  for i:=1 to n-1 do
  begin
    for j:=1+i to n do
      if a[i,j] mod 2=0 then
        inc(k);
  end;
  writeln('Êîë-âî ',k);
end.