Задание на матрицы в Turbo Pascal

sum:=0;
for i:=1 to 6 do
   for j:=1 to 7 do
      begin
      if (a[i,j]>=x) and (a[i,j]<=y) or (a[i,j]>=y) and (a[i,j]<=x) then
        sum:=sum+a;
      end;
for j:=1 to 7 do
    a[1,j]:=sum;