[Atani]

Здраствуйте. Немогу понять почему появляеться ошибка Incompatible types.

Код:

var dMass:array of array of integer; t,y,j,i,n:integer;dMassPov:array of array of integer; px0,px1,px2,px3,px4,px5,px6:integer;
begin
    i:=0;
    j:=0;
    SetLength(dMass, 80);
     for i:=0 to 79 do begin
       n:=Ilost(i+1);
       SetLength(dMass[i], n);
       Query2.ParamByName('xi').Value:=i+1;
         try
           Query2.Open;
           Query2.First;
           j:=0;
         while not Query2.Eof do begin
          dMass[i,j] := Query2.FieldByName('NUM').Value;
          inc(j);
          Query2.Next;
       end;
         finally
          Query2.Close;
         end;
         end;
SetLength(dMassPov, 80);
SetLength(dMassPov[t], 5);
          for i:=0 to High(dMass) do
          t:=i;
          for j:=1 to High(dMass[i]) do
            begin
              if dMass[i,j]-1<>dMass[i,j-1] then
                if dMass[i,j]+1=dMass[i,j+1] and dMass[i,j]+2=dMass[i,j+2]
                  and dMass[i,j]+3=dMass[i,j+3] and dMass[i,j]+4=dMass[i,j+4]
                  and dMass[i,j]+5=dMass[i,j+5] and dMass[i,j]+6=dMass[i,j+6]
                  then dMassPov[t,4]:=dMassPov[t,4]+1 else
                      if dMass[i,j]+1=dMass[i,j+1] and dMass[i,j]+2=dMass[i,j+2]
                      and dMass[i,j]+3=dMass[i,j+3] and dMass[i,j]+4=dMass[i,j+4]
                      and dMass[i,j]+5=dMass[i,j+5] then dMassPov[t,3]:=dMassPov[t,3]+1 else
                      if dMass[i,j]+1=dMass[i,j+1] and dMass[i,j]+2=dMass[i,j+2]
                        and dMass[i,j]+3=dMass[i,j+3] and dMass[i,j]+4=dMass[i,j+4] then
                          dMassPov[t,2]:=dMassPov[t,2]+1 else
                   if dMass[i,j]+1=dMass[i,j+1] and dMass[i,j]+2=dMass[i,j+2]
                              and dMass[i,j]+3=dMass[i,j+3] then dMassPov[t,1]:=dMassPov[t,1]+1 else
                   if dMass[i,j]+1=dMass[i,j+1] and dMass[i,j]+2=dMass[i,j+2] then
                                  dMassPov[t,0]:=dMassPov[t,0]+1
                                   end;

Ошибка в 31 строке и дальше до конца. Сравниваю элементы одного массива (все элементы integer), плюсую тоже целые числа. Пробовал писать

Код:

and (dMass[i,j]+3)=dMass[i,j+3] and (dMass[i,j]+4)=dMass[i,j+4]

и через Trunc. Не помогло. Буду благодарен за подсказку. Спасибо