Выделить желтым цветом в массиве элементы как на картинке и подсчитать их сумму

Program Cymma;
USES CRT;
Const
  n = 4;
Type
  myarray = array [1..n,1..n] of integer;
Var
  a : myarray;
  i,j,sum,h : integer;
BEGIN
clrscr;h:=1;sum:=0;
WriteLn('  Videlim elementi');
WriteLn('|-------------------|');
FOR i:=1 to n do
  Begin
    for j:=1 to n do
      begin
        a[i][j]:=h;
        inc(h);
        IF (odd(j) and not(odd(i))) or
           (odd(i) and not(odd(j)))
        then
          begin
            write('| ');textcolor(14);
            write(a[i,j]:2,' ');textcolor(7);
            sum:=sum + a[i,j];
          end
        else
          begin
            write('| ');textcolor(7);
            write(a[i,j]:2,' ');textcolor(7);
          end;
      end;write('|');
    WriteLn;
    if i<>n then
    WriteLn('|----+----+----+----|')
    else
    WriteLn('|-------------------|');
  End;
WriteLn;
Write('Cymma BIDE/\EHHIX elementov massiva = ',sum);
Readkey;
END.

Uses Crt;
Var x,y,n,Sum: Byte;
begin
 Randomize;
 TextAttr := LightGray + Black * 16;
 ClrScr;
 n := 1; Sum := 0;
 for y := 1 to 4
 do for x := 1 to 4
    do begin
       Window(x+3*(x-1), y+2*(y-1), x+3*x, y+2*y);
       if Random(3) = 0
       then TextAttr := Black + White * 16
       else begin
            TextAttr := Black + Yellow * 16;
            Sum := Sum + n;
            end;
       ClrScr;
       GotoXY(2, 2); Write(n);
       Inc(n);
       end;
 Window(1,1,80,25);
 TextAttr := LightGray + Black * 16;
 GotoXY(1, 14); Write('Sum yellow numbers: ', Sum);
 ReadLn;
end.

if not((i=1)and(j=4)) and odd(i+j) then
  begin
    write('| ');textcolor(14);
    write(a[i,j]:2,' ');textcolor(7);
    sum:=sum + a[i,j];
  end