for k:=i-1 to i+1 do
    begin
        for z:=j-1 to j+1 do
            begin
                if (k != i) And (z != j) then
                    sum:= sum + mas[k,z];
            end;
    end;